导入并自动编号

liwen

DoCmd.TransferSpreadsheet acImport, 8, "商场进货表", Application.CurrentProject.Path & "\A店进货.XLS", True, "B:D"

ycxchen

十分感谢liwen版主的指教！现就您修改的代码向您请教三个方面的问题：
1、access2003在引用excel模块时，DoCmd.TransferSpreadsheet acImport, 8, "商场进货表", Application.CurrentProject.Path & "\A店进货.XLS", True, "B"这句话中的“8”为何不是“10”或“11”？
2、DoCmd.TransferSpreadsheet acImport, 8, "商场进货表", Application.CurrentProject.Path & "\A店进货.XLS", True, "B"这句话中的“B：D”是什么意思？
3、导入数据后如下记录重复，如何去除重复的数据？
A店   2008-1-3     白糖
盼继续指点，不胜感谢！

ycxchen

我原来回贴时并没有在句子中加入表情图标的，为何在12楼的会自动加入了?

liwen

8是指导入的表格类型即类型的默认值“Microsoft Excel 8-10”，如不清楚表格类型，可通过在宏中设置TransferSpreadsheet再转换成代码（将宏另存为模块）。
“B：D“是指excel表格的范围B列到D列
重复记录除非将那三项都设定主键不允许重复外，在导入时如果不想重复导入，只能借助临时表，先判断再导入。
对于己经重复导入的，你可先搜索一下论坛或网上的相关文章。



本论去默认的是开启表情符号代码，可通过旁边的“禁用Smilies"来禁用表情图标。

[ 本帖最后由 liwen 于 2008-8-21 15:13 编辑 ]

ycxchen

十分感谢版主的指教！ 我再请教一个问题：
在原来语句“DoCmd.TransferSpreadsheet acImport, 11, "商场进货表", Me.xls_path, True,”中，为何用“Application.CurrentProject.Path & "\A店进货.XLS", ”代替“Me.xls_path？”这样做有好处？

liwen

不必这样代替，只是我写代码时没注意你是选取的单个文件导入。
但如果你想一次导入文件夹下的所有EXCEL文件可以考虑这样的方式。

ycxchen

多谢版主!