如何能不打开EXCEL文件且将EXCEL数据写入TXT？？

wanapen

首先谢谢alzeng  老师的语句~~~但是请问下 老师  

Set oClp = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")

这条语句是什么意思啊？看不懂！！

wanapen

首先谢谢alzeng 老师的语句支持~~~

但是我发现您给的语句只支持单个.xls文件写入TXT  如果是多个.xls写入一个TXT里呢？

我试着写了一个小循环  但是  在 Print #1, Str: Reset  这里出现了问题！！

提示框为运行时错误52
文件名或文件号错误~~~

烦请再帮忙看看！

Zamyi

不是不打开，而是在后台打开。任何不打开都是假的。

1. Sub test()
   
2. Application.DisplayAlerts = False
   
3. f = Application.GetOpenFilename("Excel文件,*.xls", , "请选择")
   
4. With GetObject(f)
   
5.   .SaveAs Replace(f, ".xls", ".txt"), xlUnicodeText, False
   
6.   .Close
   
7. End With
   
8. Application.DisplayAlerts = True
   
9. End Sub

复制代码

wanapen

Zamyi 发表于 2013-5-9 16:55
不是不打开，而是在后台打开。任何不打开都是假的。

Zamyi 老师你好 感谢您的语句

其实我的目的是想在后台打开EXCEL文件，然后写入TXT

但是呢  我需要做个循环，因为我有多个EXCEL 。

大概的意思就是我需要在后台打开EXCEL 然后写入TXT

之后再后台打开另一个EXCEL 写入刚才的TXT 以此类推~~

不知道是否可以实现！

bluexuemei

alzeng 发表于 2013-5-9 15:04

[A1].Copy这句有点不明白，请老师指教,是笔误吧！

alzeng

bluexuemei 发表于 2013-5-9 17:15
[A1].Copy这句有点不明白，请老师指教,是笔误吧！

用以清空剪切板内容。

alzeng

Zamyi 发表于 2013-5-9 16:55
不是不打开，而是在后台打开。任何不打开都是假的。

如果不考虑楼主所要求的内容区域，无疑另存是最简洁的办法。

alzeng

wanapen 发表于 2013-5-9 16:49
首先谢谢alzeng 老师的语句支持~~~

但是我发现您给的语句只支持单个.xls文件写入TXT  如果是多个.xls写入 ...

1. 
   
2. Sub wrtInTxt()
   
3.     Dim oClp As Object
   
4.     Dim Flnm, Str$, k%
   
5.     Dim Wb As Workbook
   
6. 
   
7.     Set oClp = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
   
8.     Flnm = Application.GetOpenFilename("Excel文件,*.xls", , "请选择", , True)
   
9.     For k = 1 To UBound(Flnm)
   
10.         Set Wb = GetObject(Flnm(k))
    
11.         Wb.Sheets(1).[A6].CurrentRegion.Copy    '此处假设所有文件格式相同
    
12.         oClp.getfromclipboard: Str = oClp.gettext
    
13.         [A1].Copy: Wb.Close 0
    
14. 
    
15.         Open ThisWorkbook.Path & "\模板文件.txt" For Append As #1
    
16.         Print #1, Str: Reset
    
17.     Next
    
18.     Set oClp = Nothing
    
19.     MsgBox "数据已写入文本中。"
    
20. End Sub

复制代码

等Zamyi更好的方法……

bluexuemei

alzeng 发表于 2013-5-9 17:32
用以清空剪切板内容。

原来如此，谢谢老师！

bluexuemei

1. Sub bxm()
   
2. Set cnn = CreateObject("adodb.connection")
   
3. cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='EXCEL 12.0;hdr=no';Data Source=" & ThisWorkbook.Path & "\模板文件.xls"
   
4. SQL = "select * into [Text;HDR=NO;DATABASE=" & ThisWorkbook.Path & "].[目标文件.txt] from [sheet1$a2:n71]"
   
5. cnn.Execute SQL
   
6. cnn.Close
   
7. Set cnn = Nothing
   
8. End Sub
   

复制代码

schema.ini中设置
[目标文件.txt]
ColNameHeader=false
CharacterSet=936
Format=FixedLength
Col1=F1 Char Width 6
Col2=F2 Char Width 6
Col3=F3 Char Width 6
Col4=F4 Char Width 6
Col5=F5 Char Width 6
Col6=F6 Char Width 6
Col7=F7 Char Width 6
Col8=F8 Char Width 6
Col9=F9 Char Width 6
Col10=F10 Char Width 6
Col11=F11 Char Width 6
Col12=F12 Char Width 6
Col13=F13 Char Width 6
Col14=F14 Char Width 6