主题：能否不打开excel表格而操作excel表格

Dim App As New MSExcel.Application
Dim temp As String
temp = "e:\项目设计\操作表\表格数据提取表.xlsm"
Dim Wb As MSExcel.Workbook
wb = getobject(temp)
Wb.WorkSheets(2).Range("D1") = e.Form.Controls("TextBox1").value
Wb.SaveAs("e:\项目设计\操作表\表格数据提取表.xlsm")
App.Quit

我编写这个代码是为了在不打开excel情况下，向sheet2工作表写入值，但是没有成功，还是将文件打开了。请教如何做到呢？

你getobject是怎么做的？

 

直接用MSExcel打开excel，不显示出来不就行了？

 

肯定是需要打开一下excel才能修改里面的内容的。

vba中的GetObject（）函数，下面的代码在wps中调试通过，不用打开文件就可赋值取值

Private Sub CommandButton3_Click()
    Dim Wb As Workbook
    Set Wb = GetObject("E:\项目设计\操作表\联系2.xls")
    Wb.Sheets(1).Range("A2") = Workbooks(1).Sheets(1).Range("AD1").Value
    Dim str As String
    str = Wb.Sheets(1).Range("A2").Value
    MsgBox (str)
    Wb.Save
    Wb.Close False
    Set Wb = Nothing

End Sub

只是把文件属性变成隐藏了，不知道是哪里的问题，在wps中打不开，在excel中看不到取消隐藏后关闭保存才可在wps中打开，能否指点下

这个功能能加到foxtable里面吗？

一下修改后代码，既取消隐藏，又取消只读，正常了

Private Sub CommandButton1_Click()

 
  Dim Wb As Workbooks
  fileToOpen = Application.GetOpenFilename("Excel Files (*.xls),*.xls")
  If fileToOpen <> False Then
    Workbooks.Open Filename:=fileToOpen, AddToMru:=True
    MsgBox (Workbooks(2).Name)
   
    Windows(Workbooks(2).Name).Visible = True '取消隐藏，因文件已打开因此使用windows（）函数
    
    If Workbooks(2).ReadOnlyRecommended = True Then
       Workbooks(2).ReadOnlyRecommended = False '取消只读
    End If

  Else
  End If

End Sub

vba没你说de那么麻烦吧？只要visible不设置成true，都不会显示的。参考

 

http://www.foxtable.com/webhelp/scr/2121.htm

 

谢谢