[悬赏]有懂Access的么?

现在需要用ACCESS对一大堆的EXCEL文件作操作

需求如下:

同一个文件夹下有一大堆EXCEL文件,格式均相同

需要把它们全部遍历一遍,取出其中每一张表中的某几个格子中的数据与EXCEL文件的文件名形成一条数据插入ACCESS中

例如把xxx.xsl的,xxx,A1,B3,C4,F6形成一条数据插入一张表.

请问怎么完成....

现在大概搞清楚了需要用Excel.Application,但是怎么也找不到相应的介绍了..卡住了,求助

嗯,我执行了x.Workbooks(fn).Close SaveChanges:=False就好了

现在会自动退出了,但是每次自动退出前它都要提示一句"是否重新计算公式并保存更改?"

不胜其烦...

能不能不让它提示这个...

Excel.Application这东西不会释放内存的.....直接被拖死当场...OTL

内存里上百个EXCEL.exe

引用

最初由 aaabbbccc 发布


能读写excel的脚本模块也不少

嗯,我就是用的Excel.Application这个...:D

其实很简单的一个程序了,因为连循环都只有一个在文件夹里循环的语句而已:D

已经做出来了,感谢大家...OTL

我其实就是不想打开那么多的EXCEL文件而已...只要能够把它们整合到一个文件里,无论是啥文件都行的...现在终于把程序搞出来了,正在导入数据.

Dim OpenFileName As Variant, tmp As String, i As Long
Dim ReturnBook As Workbook, TargetBook As Workbook

OpenFileName = Application.GetOpenFilename(FileFilter:="Microsoft Excelブック,*.xls", MultiSelect:=True)
For i = 1 To UBound(OpenFileName)
Set TargetBook = Workbooks.Open(OpenFileName(i))
var val1=TargetBook .Worksheets(1).Range("A1")
var val2=TargetBook .Worksheets(1).Range("B2")
TargetBook.Close
Next i

引用

最初由 wking 发布
我以为楼主会编程能搞定？

用PHP逐个格子分析太麻烦了

直接用Access我觉得还方便点,没想到用这么长时间