PPT VBA如何打来excel文件读取数据

假设在PPT中添加一个Textbox1 再添加一个命令

在运行命令后，Textbox调用Excel中的指定Range的数据。

程序如下：注意需要先引用Microsoft excel 120 object library

Private Sub CommandButton1_Click()

Dim MyexcelApp As New ExcelApplication

Dim MyexcelBook As New ExcelWorkbook

Dim MyexcelSheet As New ExcelWorksheet

Pathstr = "C:\Documents and Settings\Administrator\桌面\testxlsx"

Set MyexcelBook = MyexcelAppWorkbooksOpen(Pathstr)

Set MyexcelSheet = MyexcelBookWorksheets(1)

MyexcelSheetActivate

TextBox1Text = MyexcelSheetRange("B2")Value

MyexcelBookClose

Set MyexcelApp = Nothing

Set MyexcelBook = Nothing

Set MyexcelSheet = Nothing

End Sub

Dim C_Address, D_Address

If [e15]End(xlUp)Row > 1 Then

For i = 2 To [e15]End(xlUp)Row

Set c = [G1:U1]Find(Range("E" & i), , , xlWhole)

If Not c Is Nothing Then

C_Address = cAddress

temp = ""

Do

temp = temp & Split(cAddress, "$")(1) & ","

Set c = [G1:U1]FindNext(c)

Loop While Not c Is Nothing And cAddress <> C_Address

End If

If temp <> "" Then

arr = Split(Left(temp, Len(temp) - 1), ",")

For j = 0 To UBound(arr)

Set D = Range(arr(j) & "2:" & arr(j) & "15")Find(Range("d" & i), , , xlWhole)

If Not D Is Nothing Then

D_Address = DAddress

Do

Range("B" & DRow) = Range("B" & DRow) + 1

Set D = Range(arr(j) & "2:" & arr(j) & "15")FindNext(D)

Loop While Not D Is Nothing And DAddress <> D_Address

End If

Next

End If

Next

End If

excel获取指定工作表的行数、列数的具体 *** 作方法如下：

1首先，打开Excel软件

2打开源数据文件，假如需要根据证券代码显示出行业名称。现在，在I1单元格输入”证券代码“，在J1单元格输入”Nnindnme"。

3如图，选中J2单元格，单击工具栏中的"插入函数“

4d出”插入函数“对话框，选择插入IF函数

5在d出的”函数参数“对话框中，设置Logical_test参数为”I2=“”，将Value_if_true设置为“”，在Value_if_false参数框中输入“VLOOKUP(I2,A2:B2846,2)，然后点击确定

1、将单元格所选单元格的行号和列号，分别用VBA显示在下面的两个单元格中，如下图所示：

2、按下Alt+F11，打开VBA编辑界面，选择当前工作表编写代码，如下图所示：

3、下面代码是得到当前单元格的行号并放到当前单元格下一个单元格中：

4、下面代码是得到当前单元格的列号并放到当前单元格下面第二个单元格中：

5、代码编写完成，点击运行子过程按钮（或按下F5）

6、返回Excel中，就可以看到得到了当前单元格的行号和列号

可能以上的三种方式，你还是不太熟悉，我们举一个通俗一点例子：

1、对象cells（rowsindex，colunmindex）

假如我们想在sheet1中的A1单元格输入100，是这样写代码的。

Worksheets("sheet1")Cells(1, 1) = 100

我们来说说cells（1,1）的含义，前面的一个数字1，代表的是第一行，后面的一个1代表的是第一列。是不是发现使用Cells比range更好理解一点呢？

PS：需要说明的是在我们excel种使用Cells这个时候，他的行和列是有最大值的，我们一旦超过最大值就会报错。行的最大值为1048576，列的最大值为16384

2、对象cells（rowindex）

这个使用方法很简单也很有意思，他的最大值为行和列的所有单元格数目相加，即他的最大值为17179869184这个数字和我们的Excel中的单元格的数目是相等的。理解这个的时候，可以这么理解，单元格从A1到XFD1换行，然后A2到XFD2，如此进行循环。

假如我们想在第520个单元格输入这个值，那么代码是如何去写写呢？

其实很简单的, Worksheets("sheet1")Cells(520) = 520

这代码的意思就是在第520个单元格输入520值。

3、对象cells

这个的使用方法可以说是非常强大的，这种方法返回的是所有工作表上的单元格，请注意和前面的2种方法区分来。

例1， 假如我们需要清除sheet1中的单元格的所有值，代码是这样写的。

代码为Worksheets("sheet1")CellsClear，这个的意思就是清除单元格中的所有内容。这个在我们清除单元格的内容的时候用的很多的。

考虑把要读取的文档都打开（如果文档非常多，可以考虑用代码打开，循环读取后再关闭），然后 Application 对象就会包含每一个打开的文档对象也就是 Workbooks 集合对象，它的每一个字对象就对应着一个打开的工作簿，然后按照读取单个文档的方法即可。

以上就是关于PPT VBA如何打来excel文件读取数据全部的内容，包括:PPT VBA如何打来excel文件读取数据、Excel 怎样用VBA读取某列数据、vba excel怎么获取指定工作表的行数、列数等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！