国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

打開一個Excel文件，選擇菜單欄上的"Tools"選項->Macro->Visual Basic Editor，打開VBA編輯器。

在Modules文件夾下的csMain文件中，寫下如下VB格式的代碼：

Public Sub Source做成()
'聲明Excel相關
    Dim xlApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Set xlApp = New Excel.Application
'獲取指定excel文件
    Set xlBook = xlApp.Workbooks.Open("C:\test.xls")
    Dim sheet As Excel.Worksheet
'獲取指定sheet
    Set sheet = xlBook.Worksheets(2)
    Dim ss As String
'獲取指定單元格的內容
    ss = sheet.Cells(2, 2)
'內容顯示
    MsgBox (ss)
End Sub