[已解决]新手求助将execl的sheet1中的列A,C,E导出，并生成txt文件

zhxqer

hwc2ycy 发表于 2013-6-21 16:44

我表里有汉字，导出的TXT汉字都有双引号，怎么才能不带双引号，表里是既有汉字也有数值，请大神指导！

hwc2ycy

你传个附件上来测吧。

hwc2ycy

用PRINT语句不会有。

1. Sub ACEToTXT()
   
2.     Dim arr
   
3.     Dim fileNO
   
4.     Dim strFile$
   
5.     Dim i As Long
   
6.     On Error GoTo ErrorHandler:
   
7. 
   
8.     strFile = ThisWorkbook.Path & Application.PathSeparator & Format(Now, "yyyymmddhhmm") & ".txt"
   
9.     fileNO = FreeFile
   
10.     Open strFile For Output Access Write As #fileNO
    
11.     arr = ActiveSheet.UsedRange.Columns("a:e").Value
    
12.     For i = 1 To UBound(arr)
    
13.         Print #fileNO, arr(i, 1) & "," & arr(i, 3) & "," & arr(i, 5)
    
14.     Next
    
15.     Close #fileNO
    
16.     MsgBox "文件导出到 " & strFile
    
17.     Exit Sub
    
18.    
    
19. ErrorHandler:
    
20.     MsgBox Err.Number & vbCrLf & _
    
21.            Err.Description
    
22.     Err.Clear
    
23.     Close #fileNO
    
24. End Sub
    

复制代码

hwc2ycy

用WRITE输出，日期会加#，字符串会加“

zhxqer

hwc2ycy 发表于 2013-6-21 18:48
用WRITE输出，日期会加#，字符串会加“

谢谢大神，还得麻烦您，print输出的数据小数点前的0被省略了！怎么能不省略0!

hwc2ycy

你的数据是几位啊，规范了没？

zhxqer

hwc2ycy 发表于 2013-6-25 16:11
你的数据是几位啊，规范了没？

数值是6位

hwc2ycy

带不带小数位呀？

hwc2ycy

1. Sub ACEToTXT()
   
2.     Dim arr
   
3.     Dim fileNO
   
4.     Dim strFile$
   
5.     Dim i As Long
   
6.     On Error GoTo ErrorHandler:
   
7. 
   
8.     strFile = ThisWorkbook.Path & Application.PathSeparator & Format(Now, "yyyymmddhhmm") & ".txt"
   
9.     fileNO = FreeFile
   
10.     Open strFile For Output Access Write As #fileNO
    
11.     arr = ActiveSheet.UsedRange.Columns("a:e").Value
    
12.     For i = 1 To UBound(arr)
    
13.         Print #fileNO, IIf(IsNumeric(arr(i, 1)), Format(arr(i, 1), "000000"), arr(i, 1)) & "," & IIf(IsNumeric(arr(i, 3)), Format(arr(i, 3), "000000"), arr(i, 3)) & "," & IIf(IsNumeric(arr(i, 5)), Format(arr(i, 5), "000000"), arr(i, 5))
    
14.     Next
    
15.     Close #fileNO
    
16.     MsgBox "文件导出到 " & strFile
    
17.     Exit Sub
    
18.    
    
19. ErrorHandler:
    
20.     MsgBox Err.Number & vbCrLf & _
    
21.            Err.Description
    
22.     Err.Clear
    
23.     Close #fileNO
    
24. End Sub
    

复制代码

hwc2ycy

人呢，结果如何了。