我想用VB从EXCEL中读取数据？

最新推荐文章于 2020-11-30 23:45:23 发布

mupengyue

最新推荐文章于 2020-11-30 23:45:23 发布

阅读量3.7k

点赞数

文章标签： excel vb string timer command 工作

本文链接：https://blog.csdn.net/mupengyue/article/details/5776159

版权

这篇博客探讨了如何使用VB从Excel文件中读取数据。作者展示了尝试读取Excel中的性别、费用和姓名数据的代码，并询问了代码是否正确。在代码中，作者检查了Excel文件是否存在，然后激活并设置了Excel应用类，读取特定单元格的数据，并执行了Excel中的宏。

摘要由CSDN通过智能技术生成

我想用VB从EXCEL中读取数据？
怎么写程序？
不知道这样写对不对
Private Sub Command6_Click()
   On Error GoTo Err1
    Dim xing As String
    Dim ming As String
    Dim fei As String

    Dim XLApp As Excel.Application
    Dim xlBook As Excel.Workbook
    Dim xlSheet As Excel.Worksheet

     Text7.Text = "4582"
    Set XLApp = CreateObject("Excel.Application")
xlSheet.Activate '激活工作表


If Dir("D:/temp/excel.bz") = "" Then '判断EXCEL是否打开
    Set XLApp = CreateObject("Excel.Application") '创建EXCEL应用类
    XLApp.Visible = True '设置EXCEL可见

xing = xlSheet.Cells(1, 5)   '性别栏
fei = xlSheet.Cells(1, 7)       '费用栏
ming = xlSheet.Cells(1, 3)   '姓名栏

h = xlSheet.Cells(1, 10) '卡号
Debug.Print Len(xing), xing
Debug.Print Len(ming), ming