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

wanapen

各位高手~~各位达人~~~本人是新人，被问题难住了，找了几天的论坛了，也没有找到我想要的东西，特此上一贴，急寻帮助，望各位高手，各位达人鼎力相助，十分感谢！

我想知道如何能在不打开EXCEL的情况下，把EXCEL里面的数据写入指定的TXT里呢？求代码~~十分感谢！

附件是2个文件，1个是模板文件.xls  另一个是目标文件.txt

大概意思就是在不打开多个“模板文件.xls”的前提下，将模板文件里面的内容原封不动的写入一个“目标文件.txt”里，谢谢了 ，希望老师，高手，达人帮帮忙，十分感谢了！



1111.rar (4.8 KB, 下载次数: 26)

2013-5-8 23:03 上传

点击文件名下载附件

wanapen

亲们，没人会吗？

bluexuemei

1. Sub test()
   
2.      Dim cnn, SQL$
   
3.      Set cnn = CreateObject("adodb.connection")
   
4.      cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no';data source=" & ThisWorkbook.Path & "\模板文件.xls"
   
5.      SQL = "select * from [sheet1$a2:n71]"
   
6.      Open ThisWorkbook.Path & "\目标文件.txt" For Output As #1
   
7.      Print #1, Replace(cnn.Execute(SQL).Getstring, vbCr, vbNewLine)
   
8.      Close #1
   
9.      cnn.Close
   
10.      Set cnn = Nothing
    
11.      Stop
    
12. End Sub

复制代码

sunny_8848

学习了，多谢

wanapen

bluexuemei 发表于 2013-5-8 23:28

十分感谢老师的语句~~我测试下~~！！

wanapen

bluexuemei  老师 你好：

bluexuemei

晚上帮你处理吧

wanapen

在此先谢谢bluexuemei老师，不过刚才的问题我已经知道怎么回事了

请老师帮我看看 这个附件 我怀疑是htm格式的（请看图片为我点另存为后出来的），所以用SQL不识别

cnn.Open "provider=microsoft.jet.oledb.4.0;extended properties='excel 8.0;hdr=no';data source=" & ThisWorkbook.Path & "\模板文件.xls"
红色部分引用的是关于EXCEL的数据，但是由于我这个附件可能比较特别，所以运行到以上语句时提示数据类型不对。

请老师看附件！

烦请老师有空的话 帮弄下~~万分感谢！！！！！

alzeng

1. Sub wrtInTxt()
   
2.     Dim oClp As Object
   
3.     Dim Flnm$, Str$
   
4.     Dim Wb As Workbook
   
5. 
   
6.     Set oClp = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
   
7.     Flnm = Application.GetOpenFilename("Excel文件,*.xls", , "请选择")
   
8.     Set Wb = GetObject(Flnm)
   
9.     Wb.Sheets(1).[A6].CurrentRegion.Copy
   
10.     oClp.getfromclipboard: Str = oClp.gettext
    
11.     [A1].Copy: Set oClp = Nothing
    
12.     Wb.Close 0
    
13.    
    
14.     Open Replace(Flnm, ".xls", ".txt") For Output As #1
    
15.     Print #1, Str: Reset
    
16.     MsgBox "数据已写入文本中。"
    
17. End Sub

复制代码

alzeng