[悬赏]有懂Access的么?

我以为楼主会编程能搞定？

引用

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

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

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

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

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

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

引用

最初由 aaabbbccc 发布


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

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

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

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

内存里上百个EXCEL.exe

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

不胜其烦...

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