使用VBA读取指定Excel文件指定Sheet指定单元格的内容

最新推荐文章于 2024-05-03 16:54:12 发布

最新推荐文章于 2024-05-03 16:54:12 发布 · 9.2k 阅读

文章标签：

#Excel #VBA #单元测试 #VB #C

R1调查专栏收录该内容

6 篇文章

订阅专栏

本文介绍如何使用VBA宏编程从特定路径下的Excel文件中读取指定工作表的单元格内容，并通过消息框展示读取结果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

打开一个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

测试效果：弹出一个信息框，显示的内容是C盘下test.xls文件的第2个sheet的（2，2）单元格中的内容。