Question

VB中打开excel并自动存储

就是通过VB调用excel文件对其进行赋值操作后，将打开的excel文件进行自动存储，该如何实现？
谢谢！

Answer 1

Public Sub GetExcel(strPath As String)
Dim MyXL As Object '用于存放 Microsoft Excel 引用的变量。
Dim ExcelWasNotRunning As Boolean '用于最后释放的标记。

'测试 Microsoft Excel 的副本是否在运行。
On Error Resume Next '延迟错误捕获。

'不带第一个参数调用 Getobject 函数将返回对该应用程序的实例的引用。
'如果该应用程序不在运行，则会产生错误。
Set MyXL = GetObject(, "Excel.Application")
If Err.Number <> 0 Then ExcelWasNotRunning = True
Err.Clear '如果发生错误则要清除 Err 对象。

'将对象变量设为对要看的文件的引用。
Set MyXL = GetObject(strPath)

'设置其 Application 属性，显示 Microsoft Excel。
'然后使用 MyXL 对象引用的 Windows 集合显示包含该文件的实际窗口。
MyXL.Application.Visible = True
MyXL.Parent.Windows(1).Visible = True
'在此处对文件进行操作。 ...

End Sub

Answer 2

On Error Resume Next
Dim appexcel As Excel.Application
Set appexcel = CreateObject("Excel.Application")
appexcel.Workbooks.Open "d:\我的文档\桌面\4.xls"
appexcel.Visible = False
appexcel.Cells.Replace "1", "2"
ActiveWorkbook.Save
appexcel.Quit
Set appexcel = Nothing
这是把excel中的1替换成2