
Option Compare Database
Sub test()
DoCmd.TransferSpreadsheet acImport, 8, "sheet1", "d:\work\book2.XLS", False
DoCmd.TransferSpreadsheet acImport, 8, "sheet2", "d:\work\book2.XLS", False
DoCmd.TransferSpreadsheet acImport, 8, "sheet3", "d:\work\book2.XLS", False
End Sub
============================================================================
解释:
DoCmd.TransferSpreadsheet acImport, 8, "sheet1", "d:\work\book2.XLS", False
这一行代码的作用就是将d:\work\book2.xls文件中的表sheet1导入 Access.
DoCmd.TransferSpreadsheet acImport, 8, "sheet2", "d:\work\book2.XLS", False
这一行代码的作用就是将d:\work\book2.xls文件中的表sheet2导入 Access.
.
.
.
==========================================================
代码使用方法:
打开access文件, Alt +F11 添加上述代码
按工具栏上的"执行"按钮执行就可以了
==========================================================
注: 因为是Access的VBA,目前我还没想出好办法拿在Access拿到每个工作表名字,先说明到此.
excel通常默认3个工作表,由于工作需要,有时我们需要使用多个工作表,下面给大家介绍两种快捷增加或减少的方法。具体步骤如下:
1、当我们需要增加几个工作表格时,增加的工作表并不多,我们可以使用简单的直接添加,右键点击sheet2。
2、点击后,会出现一个对话框,最上方有一个“插入”,此时我们点击进入。
3、会出现如图所示对话框,我们选择excel工作表,然后选择确认。这是就会插入一个sheet4。
4、如果需要添加的sheet表格很多,这时我们就需要另外一种方法,此种方法适合添加较多工作表。打开工具栏,选择最下方的“选项”。
5、当我们进入界面后,然后选择“常用”选项那个标签,可参考图中所示。
6、在新工作薄的工作表数中,选择要添加的工作表个数,最后选择确认,再新打开excel表格时,就会看到设置的工作表个数。
以上两种途径各有优点,第一种方法快捷方便,但使用较少数量,第二种适合较多数量。
菜单---插入---工作表在sheet3那里击右键----插入---工作表
也可以给sheet1、2、3……改名。就是双击sheet1、2、3……,当选中(出现黑底白字)时,直接输入文件名就可以了。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)