1. EXCELVBA實現EXCEL的單元格生成TXT文件
Sub SaveTxt()
MkDir "txt"
ChDir "txt"
Dim i As Integer
Application.ScreenUpdating = False
For i = 1 To Range("A65000").End(xlUp).Row
Workbooks.Add
Range("A1") = ThisWorkbook.Sheets("Sheet2").Cells(i, 1).Value
ActiveWorkbook.SaveAs Format(i, "000") & ".txt", xlUnicodeText
ActiveWorkbook.Close 0
Next i
Application.ScreenUpdating = True
End Sub
2. Excel中的vba如何將已打開的記事本txt文件,保存在指定的路徑,用指定的名稱
手工打開的?為什麼不用vba去打開呢
vba打開 寫入 保存 不就好了?
3. Excel每行數據導出成txt.文件的VBA代碼
Excel每行數據導出成txt.文件的VBA代碼:
步驟一 設置宏先把載入宏安全性設為中或低
步驟二 插入模塊alt+f11打開VBA編輯器
打開 菜單欄》插入》模塊,把下面代碼加進去
SubDaoChu()
DimIAsInteger,JAsLong,RWAsLong
ForI=1ToActiveSheet.UsedRange.Columns.Count
OpenThisWorkbook.Path&""&Cells(1,I)&".txt"ForOutputAs1
ForJ=2ToCells(65536,I).End(3).Row
Print#1,Cells(J,I).Value
NextJ
Close1
NextI
MsgBox"數據導出完畢!",vbOKOnly,"導出成功"
EndSub
步驟三 保存以後關閉EXCEL步驟四 測試再重新打開excel,按ctrl+shift+P就完成導出了,文件在D盤根目錄下
如果你想放在其他目錄,可以吧Open 「D:」 &中的D:改成你要的目錄,但是目錄不能有中文字元
4. EXCEL2013 VBA 將EXCEL導成TXT文件
Private Sub WriteOut(ByVal strPath As String, StrIn As String, format As String)
Dim objstream As Object
Dim Str As String
Set objStream = CreateObject("ADODB.Stream")
Str = StrIn & Chr(13) & Chr(10)
With objStream
.Type = 2 'adTypeText
.Charset = format
.Open
.WriteText Str
.SaveToFile strPath, 2 'adSaveCreateOverWrite
End With
Set objStream = Nothing
End Sub
format 填 "utf-8"
5. 如何用VBA將excel表導出成文本類型的文件
保存CSV格式,沒有內""符號。容
ActiveWorkbook.SaveAs Filename:="D:\doc\dataout.json", FileFormat:=xlCSV, CreateBackup:=False
6. Excel數據導出成txt.文件的VBA代碼
很簡單。例如你想把當前文件的sheet1保存成txt
你可以:
sub
svs()
Sheets(1).activate
activeworkbook.saveas
filename:="1.txt"
activeworkbook.saveas
fileformat:=xltext
end
sub
生成的文件在桌面上的my
documents中
7. 高分求用VBA將excel表格數據 導出固定格式的txt文件。
你可能沒明白樓上的意思,你建一列==IF(Book2!A1="北京","BJ|")&IF(Book2!C1="神州行","shengzhouxing|")&Book2!D1&Book2!E1,讓後一拖,拷貝一行,粘貼就可以了。
另外是不是深圳需要改為sz那?家園卡需要改為jiayuanka?
8. 求助用EXCEL VBA導出為TXT文件
我可以幫你寫個VBA代碼,還需要嗎?
如果需要,請告知要生成的Sheet名,LMNO四列從哪行開始輸出。
9. 使用VBA將EXCEL中部分行列導出到txt文件
答:導出的數據不變的原因是程序讀取的總是之前保存的文件中的值。
我重寫了下代碼,生成的文件名是:結果.txt,放在桌面上。
SubExlportText()
DimRngAsRange
SetRng=Range("H9")''紅框線內左上角單元格,我猜的
Open"C:UsersmyDesktop結果.txt"ForOutputAs#1
DoUntilIsEmpty(Rng)
Print#1,Rng&Rng.Offset(0,1)
SetRng=Rng.Offset(1,0)
Loop
Close#1
EndSub
10. 如何通過VBA將Excel sheet1中的內容導出為txt格式,要求txt文件編碼為GB2312
直接用OPEN、PRINT、CLOSE生成的TXT文件就是ANSI編碼,其中的漢字就是GB2312、GBK編碼,就滿足本帖需求。
簡單的示例:
DIM ARR,I,J
ARR=ACTIVESHEET.USEDRANGE
OPEN "C:\1.TXT" FOR OUTPUT AS #1
FOR I=1 TO UBOUND(ARR)
FOR J=1 TO UBOUND(ARR,2)
PRINT #1,ARR(I,J);
NEXT J
PRINT #1
NEXT I
CLOSE #1