TXT档指定由某行开始汇入

Dannyclock

想请教各位大神,以下是我的文字档样式


Pick List By Location Run Date : 05/04/2016 15:11:57 HKT

abc ltd

AHATSW        TW warehouse

600405        FASHION HONG KONG LTD
PPS No        INNER_AISLE        AISLE_POS        Pallet No        From Location        PICK_SEQ        Shipping Area        Task Date        user_name        Equipment        Product
00047055        4        RIGHT        SYS00186395        1-MF-007        SHIP        05/04/2016        OM        NA        WHPG62106C19260       
00047055        4        RIGHT        SYS00186396        1-MF-007        SHIP        05/04/2016        OM        NA        WHPG62106C15270       
00047055        4        RIGHT        SYS00186396        1-MF-007        SHIP        05/04/2016        OM        NA        WHPG62106C59260       
00047055        4        RIGHT        SYS00186397        1-MF-007        SHIP        05/04/2016        OM        NA        WHPG62106C59280       
00047055        4        RIGHT        SYS00186398        1-MF-007        SHIP        05/04/2016        OM        NA        WHPG62106C59270       
00047055        4        RIGHT        SYS00186399        1-MF-007        SHIP        05/04/2016        OM        NA        WHPG62106C39280       
00047055        4        RIGHT        SYS00186400        1-MF-007        SHIP        05/04/2016        OM        NA        WHPG62106C59260       
00047055        4        RIGHT        SYS00186401        1-MF-007        SHIP        05/04/2016        OM        NA        WHPG62106C19270

这个资料是由公司其他系统汇出的,我需要的资料其实是从第8行开始,第8行是栏位名称,可以在VBA内设定由第8行开始汇入吗?

另外文字档路径是否必须固定?我的语法如下:

DoCmd.TransferText acImportDelim, "picklist", "pick task", "C:\abc.txt"

可否不一定要将文字档放在指定位置,而是像平常开启档案般有一视窗弹出给使用者选择?

roych

使用textstream，skip第八行然后再read就好了。给两个参考帖子你看看：

http://www.office-cn.net/thread-119138-1-1.html
http://www.office-cn.net/thread-116491-1-1.html

一个是csv格式，另一个是txt格式，不过大同小异。

Dannyclock

谢谢,不过我下载的档案内VBA出现错误不能启动,应该是我的2016版本问题,能否将语法贴出来给我学习? 谢谢

roych

Dannyclock 发表于 2016-4-28 10:42
谢谢,不过我下载的档案内VBA出现错误不能启动,应该是我的2016版本问题,能否将语法贴出来给我学习? 谢谢

详见附件：

bas文件可以直接用记事本打开或者导入到Access的标准模块里。
需要引用的库如下（圈出部分是需要手动引用的）：

此外，建议你卸载掉Office再重装一次吧（卸载工具可以在论坛或者百度搜索 Office卸载）。如果仍然存在这些问题，估计跟区域语言有关，创建模块什么的，尽量使用英文吧，或者使用别的版本。这个问题，微软一直解决不好。