作者:乔山办公网日期:
返回目录:excel表格制作
可以写出来。你先自己写写看
要用VBA处理:
Sub 保存为独立文本zhidao1_Click()
Sheets("sheet1").Select '选定要保存的工作表
lastrow = Cells(Rows.Count, 1).End(3).Row
k = 1
For i = 1 To lastrow '从第内1行到最后一行,每为一个文件
Rows(i).Copy '复制这行内容容
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs Filename:=k & ".txt", FileFormat:=xlText, CreateBackup:=False '以txt类型存储搜索
ActiveWindow.Close (True) '关闭文件
k = k + 1
Next
MsgBox "保存完毕"
End Sub
您好来,代源码百改成度这知样道
Sub CommandButton1_Click()
Open "D:\new.txt" For Output As #1
Print #1, Right(Sheets(1).Cells(1, 1).Value, 2)
Close #1
End Sub
答:end()里面的数字是简写的,这样很不好辨认。强烈建议使用命名参数。
1、2、3、4代表xlToLeft、xlToRight、xlUp、xlDown。也就是点一个单元e799bee5baa6e997aee7ad94e58685e5aeb9363格,然后按“Ctrl+箭头”后指向的单元格。
我修改了这段代码,已验证了能正确导出。
Private Sub export()
Application.ScreenUpdating = False
Path = "E:\export"
Dim nro&, nco&
nco = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To nco
nro = Cells(Rows.Count, i).End(xlUp).Row
Open Path & "\file" & i & ".txt" For Output As #1
For Each cell In Range(Cells(1, i), Cells(nro, i))
Print #1, cell
Next
Close #1
Next
Application.ScreenUpdating = True
MsgBox "导出完成"
End Sub