Excel 将所选图纸导出为MSDOS文本
我想将所选工作表的内容导出到D:\Reports\和ddmmyyyy\u hhmmss.txt&FileFormat:=xlTextMSDOSExcel 将所选图纸导出为MSDOS文本,excel,vba,Excel,Vba,我想将所选工作表的内容导出到D:\Reports\和ddmmyyyy\u hhmmss.txt&FileFormat:=xlTextMSDOS Sub DummyOut() Sheets("Dummy").Activate zLastRow = Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To zLastRow zString = "'" zString = zString & Right("
Sub DummyOut()
Sheets("Dummy").Activate
zLastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To zLastRow
zString = "'"
zString = zString & Right("000000" & Cells(i, 1), 6)
zString = zString & Right("000000000" & Cells(i, 2), 9)
zString = zString & Right("000" & Cells(i, 3), 3)
zString = zString & Right("0000000000000" & (Cells(i, 4) * 100), 13)
zString = zString & Right("" & Cells(i, 5), 6)
Cells(i, 1) = zString
Next i
[b:e].Clear
zz = Format(Now(), "ddmmyyyy_hhmmss")
"D:\Reports\" & zz & ".txt", FileFormat:=xlTextMSDOS, CreateBackup:=False
End Sub
宏中的任何内容实际上都不会试图保存任何内容。这一行:
"D:\Reports\" & zz & ".txt", FileFormat:=xlTextMSDOS, CreateBackup:=False
甚至不会编译
这应该起作用:
Sheets("Dummy").SaveAs Filename:="D:\Reports\" & zz & ".txt", FileFormat:=xlTextMSDOS, CreateBackup:=False
两件事:
1
您面临哪些问题<代码>23
是否尝试录制宏?