Bir çalışma kitabının bir kopyasını txt dosyası olarak kaydetmek mümkün mü?VBA Excel Kaydet txt olarak kopyala Dosya
ThisWorkbook.SaveCopyAs("wb.txt") numaralı telefonu denedim. Ancak bu, excel'i herhangi bir dosya dönüşümü olmadan txt ile kaydeder. Bu yüzden metin dosyasını açtığımda hiçbir veri görüntülenmiyor.
başka bir yolu
ThisFile = "Filename"
code.....
ActiveWorkbook.SaveAs Filename:="\folderlocation\" & ThisFile & ".txt", FileFormat:=xlText
Application.DisplayAlerts = False
Dim s As String
s = ActiveWorkbook.FullName
s = Replace(s, "xlsx", "txt")
ActiveWorkbook.SaveAs Filename:=s, FileFormat:=xlCurrentPlatformText
ActiveWorkbook.Close
Application.DisplayAlerts = True
Bu, sessizce dosyayı txt biçiminde kaydedecek ve özgün dosyayı kapatacaktır.
Ayrıca bazı bilgi here bulabilirsiniz.
[bu bakın] (http://www.mrexcel.com/forum/excel-questions/281422-visual-basic-applications-code-convert-excel-text-file .html) – newguy
veya bu http://stackoverflow.com/questions/8434994/export-each-sheet-to-a-separate-csv-file –
SaveCopyAs ile bir biçim belirtemezsiniz. Geçerli sayfayı kopyalayın ve SaveA'ları kullanın –