求助：如何批量导入txt文件到excel的不同sheet?

原来

问题是这样的，把几十个格式相似的txt导入到一个book的对应不同的sheet里面，然后作些简单调整。第一步是很简单，录制宏就可以了。但是，第二步，如何批量的把相应的文件导入，比如"A.txt" 导入到"sheet A"? （文件名为A1,A2....B1,B2...)
网上找了些资料，不是很详细，拜问这里的牛人们.谢谢啦

[ 本帖最后由 原来 于 2008-7-25 15:29 编辑 ]

collot

用vba写macro
或者先导到access，然后export tables到同一个excel工作簿
不过都需要些编程

degra

可以用script 把全部文档导入到一个excel .xml 档案

如：

1. <?xml version="1.0"?>
   
2. <?mso-application progid="Excel.Sheet"?>
   
3. <Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
   
4. xmlns:o="urn:schemas-microsoft-com:office:office"
   
5. xmlns:x="urn:schemas-microsoft-com:office:excel"
   
6. xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"
   
7. xmlns:html="http://www.w3.org/TR/REC-html40">
   
8. <DocumentProperties xmlns="urn:schemas-microsoft-com:office:office">
   
9. </DocumentProperties>
   
10. <ExcelWorkbook xmlns="urn:schemas-microsoft-com:office:excel">
    
11. </ExcelWorkbook>
    
12. <Worksheet ss:Name="Sheet1">
    
13.   <Table ss:ExpandedColumnCount="1" ss:ExpandedRowCount="3" x:FullColumns="1"
    
14.    x:FullRows="1">
    
15.    <Row>
    
16.     <Cell><Data ss:Type="Number">1</Data></Cell>
    
17.    </Row>
    
18.    <Row>
    
19.     <Cell><Data ss:Type="Number">2</Data></Cell>
    
20.    </Row>
    
21.    <Row>
    
22.     <Cell><Data ss:Type="Number">3</Data></Cell>
    
23.    </Row>
    
24.   </Table>
    
25. </Worksheet>
    
26. <Worksheet ss:Name="Sheet2">
    
27.   <Table ss:ExpandedColumnCount="1" ss:ExpandedRowCount="3" x:FullColumns="1"
    
28.    x:FullRows="1">
    
29.    <Row>
    
30.     <Cell><Data ss:Type="String">a</Data></Cell>
    
31.    </Row>
    
32.    <Row>
    
33.     <Cell><Data ss:Type="String">b</Data></Cell>
    
34.    </Row>
    
35.    <Row>
    
36.     <Cell><Data ss:Type="String">c</Data></Cell>
    
37.    </Row>
    
38.   </Table>
    
39. </Worksheet>
    
40. <Worksheet ss:Name="Sheet3">
    
41.   <Table ss:ExpandedColumnCount="1" ss:ExpandedRowCount="3" x:FullColumns="1"
    
42.    x:FullRows="1">
    
43.    <Row>
    
44.     <Cell><Data ss:Type="String">e</Data></Cell>
    
45.    </Row>
    
46.    <Row>
    
47.     <Cell><Data ss:Type="String">f</Data></Cell>
    
48.    </Row>
    
49.    <Row>
    
50.     <Cell><Data ss:Type="String">g</Data></Cell>
    
51.    </Row>
    
52.   </Table>
    
53. </Worksheet>
    
54. </Workbook>

复制代码

原来

这个是从网上找到的资料，但是我修改的宏，一直没有成功。用的VBA

3.       修改宏导入成批数据

MM提醒你，这个她也能做到，但怎么样把所有的数据文件都导入进来。你看看她带来的文件，文件名是“r20041124001357.txt”、“r20041124001358.txt”、“r20041124001359.txt”、“r20041124001360.txt”之类，大概是时间加序列吧。

你想，嗯，写一个循环就可以了，你打开了刚才录制的宏，检查了一下MM带来的文件，文件名最后2位从46到89，你可以写一个i从1到44的循环，把读入文件部分的文件名改为：

"r200411240013" & ( i + 45 ) & ".txt"

把粘贴目的地（range）表示行数的数字用i替换。

OK，你按下了执行按钮，每次关闭文件的时候，有一个讨厌的是否保存文件的对话框跳出来，其他好像一切正常，还好，点击了44次鼠标后[②]，MM得到了需要的数据。

xyliu925

原帖由 原来 于 2008-7-25 21:29 发表
这个是从网上找到的资料，但是我修改的宏，一直没有成功。用的VBA

Show the script and error description.