【dsploit 源码】【源码如何转网页】【怎么检测源码漏洞】Vb自动接收文件源码_vb自动接收文件源码是什么

时间:2024-11-24 23:28:02 来源:rudp 源码 分类:时尚

1.VB 读取Excel的内容

Vb自动接收文件源码_vb自动接收文件源码是自动自动<strong>dsploit 源码</strong>什么

VB 读取Excel的内容

       '以下是源代码:

       '引用Microsoft Excel .0 Object Library

       'Excel文件放于D盘目录下,名称为:my.xls

       Private Sub Command1_Click()

       Dim A() As String

       Dim i As Integer

       Dim xlsApp As Excel.Application

       Dim xlsWorkbook As Excel.Workbook

       Dim xlssheet As Excel.Worksheet

        Set xlsApp = CreateObject("Excel.Application")

        Set xlsWorkbook = xlsApp.Workbooks.Open("D:\my.xls")

        xlsApp.Visible = True

        xlsApp.Range("A1").Select

       For i = 1 To

        A(i) = xlsApp.ActiveCell.Offset(0, i - 1).Value

        Print i;

        Print " ";

        Print A(i)

       Next i

       Set xlssheet = Nothing

       Set xlsWorkbook = Nothing

       Set xlsApp = Nothing

       End Sub