如何让excel通过宏vb所生成的txt的文件位置随excel存放位置走，因为excel要移动？

• 想用Excel里面的VB来实现将TXT文档导入到表格里怎么弄，急求求大虾帮忙~
• VB VBA:这样的txt数据如何读入到对应的excel中?
• VB创建excel'并自动保存到指定路径
• 如何用VBA生成txt脚本

想用Excel里面的VB来实现将TXT文档导入到表格里怎么弄，急求求大虾帮忙~

Sub Macro1()

Dim MyPath As String, MyName, sh As Worksheet

Set sh = ActiveSheet

Application.ScreenUpdating = False

MyPath = ThisWorkbook.Path & "\"

MyName = Dir$(MyPath & "*.txt")

Do While MyName <> ""

Workbooks.OpenText (MyPath & MyName)

With ActiveWorkbook

.ActiveSheet.Range("A1").CurrentRegion.Copy sh.Range("a65000").End(xlUp).Offset(1)

.Close False

End With

MyName = Dir$

Loop

Application.ScreenUpdating = True

End Sub

VB VBA:这样的txt数据如何读入到对应的excel中?

复制到EXCEL，然后选择数据-分列，分隔符号选择空格。

如果非要用VBA，把上边的步骤录制下来就OK了：

Sub mytxttr()

Workbooks.OpenText Filename:="C:\Documents and Settings\jqyan\Desktop\1.txt" _

, Origin:=936, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _

xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, _

Comma:=False, Space:=True, Other:=False, TrailingMinusNumbers:=True

End Sub

VB创建excel'并自动保存到指定路径

比如创建一个名称为test.xls的工作薄

Sub test()Workbooks.AddActiveWorkbook.SaveAs Filename:="d:\test.xls"ActiveWorkbook.CloseEnd Sub

如何用VBA生成txt脚本

VBA生成TXT的代码如下：

Open "C:\输出.txt" For Output As #1 '生成TXT文件

Print #1, "输出内容" '写入TXT的内容

'如果要输出EXECL值，可以：Print #1,Range("A1") '将A1值输出

Close #1 '关闭文件句柄

MsgBox "C:\输出.txt 生成成功！" '提示