Office中国论坛/Access中国论坛

标题: 用VB从EXCEL中导入几列到ACCESS [打印本页]

作者: zyz218 时间: 2005-8-18 22:57
标题: 用VB从EXCEL中导入几列到ACCESS
用VB从EXCEL中导入几列到ACCESS中时的那个列是怎样写的？如在EXCEL中选几列是这样的 A1：C10，F1：H10 那在VB中是怎样写的啊？？？急急急，等等等！！！！请版主与高手帮帮小弟，多谢了！

作者: zyz218 时间: 2005-8-18 23:39
我想知道在VB中那特定的不连继的几列是怎样写的，帮帮在下！！！！！自已顶一下喽！！！！

作者: zyz218 时间: 2005-8-18 23:49
编程方式：

请使用 TransferSpreadsheet 方法

示例

下面的示例在 Lotus 电子表格 Newemps.wk3 的指定范围内将表导入到 Microsoft Access 的“Employees”表，并用电子表格中的第一行作为字段名。DoCmd.TransferSpreadsheet acImport, 3, _

"Employees","C:\Lotus\Newemps.wk3", True, "A1:G12"请问如果"A1：G2"改为不连续的区域如：A1：D12 F1：G12 时怎样写？

作者: zyz218 时间: 2005-8-19 00:23
我用"A1：D12","F1:G12" 没有用！！！！！！！！！！！！！！

作者: zyz218 时间: 2005-8-19 00:25
一个人在自言自语啊！！！！不知海理先生在不在啊！！！！！！还有老鬼得帮帮在下啊

作者: zyz218 时间: 2005-8-19 00:54
是不是只能是连续的区域啊？是的话那位老大告诉一下在下啊！！！！！！

作者: zyz218 时间: 2005-8-19 00:59
Private Sub Deleteit()

If Dir("D:\生产计画\" & Date & ".xls") <> "" Then

Kill "D:\生产计画\" & Date & ".xls"

End If

End SubPrivate Sub Workbook_BeforeClose(Cancel As Boolean)

Call Deleteit

ActiveWorkbook.Save

ActiveWorkbook.SaveAs "D:\生产计画\" & Date & ".xls"

End Sub把生产计画文件夹改为你自已的文件夹名，并在D盘建一个名为生产计画的文件夹

作者: zyz218 时间: 2005-8-19 00:59
宏放在Thisbook 里

作者: zyz218 时间: 2005-8-19 01:00
这样文件会以当日的日期为文件名进行备份

作者: zyz218 时间: 2005-8-19 01:01
发错了地方不好意思

作者: zyz218 时间: 2005-8-19 01:11
没人告诉一下在下吗？？？？

作者: mandyliu912 时间: 2005-11-16 02:38
哎,原来excel 和access都不简单啊.自己加油了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)