Excel 2010 VBA 入门 101 将Excel按指定格式导出为文本文件

目录

示例

代码

Open语句创建文本文件

Write语句

Index函数取二维数组的子集

---

示例

    如图所示，该表为某公司员工个人所得税纳税报表。现需要将该表的数据部分（除标题）另存为以分号(；)为每列分隔符的文本文件，以便上传至其他软件系统中。

证件类型	身份证号码	税目编号	含税标志	开始日期	结束日期	天数	税前小计	扣除额	个人所得税
1	5325261XXXX9583	01000	1	20121201	20121231	31	8062.6	3500	357.52
1	3609251XXXX936X	01000	1	20121201	20121231	31	5565.68	3500	101.57
1	6540001XXXX3946	01000	1	20121201	20121231	31	8582.39	3500	461.48
1	5422261XXXX2634	01000	1	20121201	20121231	31	7205.34	3500	265.53
1	1306291XXXX2390	01000	1	20121201	20121231	31	5847.33	3500	129.73
1	1406221XXXX1519	01000	1	20121201	20121231	31	6154.42	3500	160.44
1	3206021XXXX6764	01000	1	20121201	20121231	31	14212.66	3500