ms-access vba-從Excel讀取並更新該Excel

Question

創建了一個僅具有1個表單和1個按鈕的簡單訪問DB，以運行代碼來打開現有的空excel（帶有1個工作表）並在其第一個單元格中寫入“ X”。 它可以完成工作，但是工作簿是隱藏的，因此我必須手動取消隱藏它。 也就是說，在執行VBA代碼之后，我打開excel文件，並且文件全部變灰。 我必須單擊“視圖”選項卡，然后選擇“取消隱藏”選項，一切都很好，我可以看到該單元已根據需要進行了更新。 如果我刪除了在Excel文件中寫入“ X”的VBA行，它不會隱藏工作簿。 如何解決工作簿被隱藏的問題？

Windows 7和Office2013。

謝謝！！！

這是代碼：

Private Sub Command0_Click()
    Dim my_xl_app As Object
    Dim my_xl_worksheet As Object
    Dim my_xl_workbook As Object
    Set my_xl_app = CreateObject("Excel.Application")
    my_xl_app.UserControl = True
    my_xl_app.Visible = False    ' yes. I know it's the default
    Set my_xl_workbook = GetObject("D:\Dropbox\MASAV\HIYUVIM\AAA.xlsx")
    Set my_xl_worksheet = my_xl_workbook.Worksheets(1)
    my_xl_worksheet.Cells(1, "A") = "V"
    my_xl_workbook.Close SaveChanges:=True
    Set my_xl_app = Nothing
    Set my_xl_workbook = Nothing
    Set my_xl_worksheet = Nothing
End Sub

Answer 1

解決了 ！！！

這是不隱藏我的整個工作簿的代碼：

Private Sub Command0_Click()
    Dim my_xl_app As Object
    Dim my_xl_worksheet As Object
    Dim my_xl_workbook As Object
    Set my_xl_app = CreateObject("Excel.Application")
    Set my_xl_workbook = my_xl_app.Workbooks.Open("D:\Dropbox\MASAV\HIYUVIM\AAA.xlsx")
    Set my_xl_worksheet = my_xl_workbook.Worksheets(1)
    my_xl_workbook.Sheets(1).Range("A1").Value = "V"
    my_xl_workbook.Close SaveChanges:=True
    Set my_xl_app = Nothing
End Sub

在這個論壇的這里，在另一個話題中得到了答案，這讓我無視...

非常感謝這個精彩的論壇中的所有人！！！！

Answer 2

用這個：

Workbooks(1).Windows(1).Visible = True