导航:首页 > 文件类型 > excelvbatxt文件

excelvbatxt文件

发布时间:2024-12-03 05:51:48

Ⅰ 怎样用VBA把excel转成txt文件

在EXCEL的VBA中,可以用open方法,打开一个TXT文档,for output 具体请参阅VBA的帮助

Ⅱ excel指定区域vba自动生成txt (当前代码是默认命名为 新文件.txt)想改在生成txt前可以手动命名

你的代码中,生成文件的语句是下面这行:
.SaveAs ThisWorkbook.Path & "\新文件.txt", FileFormat:=xlText
如果需要生成自己的名字,可以把这行修改为:
.SaveAs ThisWorkbook.Path & "\" & InputBox("输入文件名","确定文件名","新文件") & ".txt", FileFormat:=xlText

Ⅲ vba 如何当前excel 打开txt文件后并将txt文件保存为EXCEL

如果txt文件中的数据是由逗号分隔,试试下面的代码:
Sub TXT导入到EXCEL() '把由逗号分隔的TXT数据导入EXCEL
Application.ScreenUpdating = False '关闭屏幕刷新
Const ForReading = 1 '打开一个只读文件
Set fso = CreateObject("Scripting.FileSystemObject") '创建文本对象
Set fd = Application.FileDialog(msoFileDialogOpen) '创建“打开”对话框对象
If fd.Show = -1 Then '如果选择了文件
FileName = fd.SelectedItems(1) '记录文件路径(指定文本文件名)
Else '如果没有选择文件
MsgBox "没有选择文件,请重新操作!", , "导入到EXCEL"
Exit Sub '退出程序
End If

Set sFile = fso.OpenTextFile(FileName, ForReading) '创建并打开名为sFile的TextStream对象
i = 1 '设置输入单元格的起始行号
Do While Not sFile.AtEndOfStream '如果不是文本文件的尾端,则读取数据
LineText = sFile.ReadLine '从文本文件中依次读取一行数据为字符串
d = InStr(LineText, ",") '计算这行数据从左向右第一个全角逗号的位置
If d > 0 Then '如果全角逗号存在
TH = Replace(LineText, ",", ",") '把字符串中的全角逗号替换成半角逗号
FJ = Split(TH, ",") '把由半角逗号分隔的字符串TH写入数组FJ
ElseIf d = 0 Then '如果全角逗号不存在
FJ = Split(LineText, ",")
End If
For iCol = LBound(FJ) To UBound(FJ) '从数组中读取数据并写入对应的单元格
ThisWorkbook.ActiveSheet.Cells(i, iCol + 1) = FJ(iCol)
Next iCol
i = i + 1 '滚动到下一个写入数据的单元格行
Loop
sFile.Close
Set fso = Nothing
Set fd = Nothing
Set sFile = Nothing
Application.ScreenUpdating = False '关闭屏幕刷新
End Sub

注意:
按Alt+F11打开宏编辑器,插入模块,粘贴上述代码后,在要导入TXT文件的当前工作表中制作一个命令按钮链接宏即可操作。

Ⅳ 用vba把EXCEL指定的部分输出为excel同名的TXT文件

Sub Macro1()
Dim c As Range, i&
Open ThisWorkbook.Path & "\" & Left(ThisWorkbook.Name, Len(ThisWorkbook.Name) - 4) & ".txt" For Output As #1
For Each c In Sheet2.Range("E2:E" & Sheet2.Range("E2").End(xlDown).Row)
Print #1, c.Value
Next
For Each c In Sheet3.Range("F3:F" & Sheet3.Range("F3").End(xlDown).Row)
Print #1, c.Value
Next
Close #1
End Sub
这是将TXT文件保存在于xls文件同一个文件夹中,如果是别的地方,更改ThisWorkbook.Path为制定路径;另外,一定要将Excel保存为97-2003格式,扩展名为xls

阅读全文

与excelvbatxt文件相关的资料

热点内容
扫描完文件怎么保存 浏览:778
能识别wOrd文件的播放器 浏览:900
租号玩app如何买保障 浏览:731
混沌雷修几个版本 浏览:997
选举问题用vb程序编写 浏览:106
js函数的递归调用函数返回值 浏览:767
好省app怎么区分级别 浏览:764
条例或文件规定属于什么法律层级 浏览:809
86版本红字11野猪套好 浏览:311
word文档保存不了tmp文件怎么办 浏览:528
windows10安装临时文件 浏览:136
怎么填充同一列数据不同行 浏览:198
探月少儿编程怎么下载电脑 浏览:838
javaweb获取服务器ip 浏览:142
编程不同语言怎么结合 浏览:528
java滑动图片验证码 浏览:711
后缀名为asp的文件是什么样 浏览:628
微信群讨红包 浏览:677
硬件程序员 浏览:756
java文件类名有什么规则 浏览:873

友情链接