用VB中如何将ecxel的Sheet1的全部内容另存到一个txt文件里面？求源代码

显示全部楼层 · 2009-6-20 10:09:21

感谢江湖新秀，但我要的是用VB编写的源代码

千问 · 2009-6-20 10:09:21

经过验证，下面这段VBA代码是可用的，会在该excel相同路径下生成一个test.txt文档。有问题请补充。Sub test()
Dim savePath As String
Set excelAPP = GetObject(ActiveWorkbook.Path)
savePath = ActiveWorkbook.Path & "\test.txt"
ActiveWorkbook.Worksheets("Sheet1").Activate
excelAPP.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:=saveP...