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