EXCEL里VBA，能读取指定的文件里数据吗？-ppt读取excel数据,把excel数据源连接到ppt里面

'要在VB中操作Excel，需要引用e68a84e79fa5e98193333Excel对象模型
'方法，在菜单里选择[工程] -- [引用]，在窗口里勾选 Microsoft Excel XX.X Object Library
'其中，XX.X取决于你安装的Office的版本号
Private Sub Command6_Click()
Dim excel_App As Excel.Application
Dim excel_Book As Excel.Workbook
Dim excel_sheet As Excel.Worksheet
'启动Excel
Set excel_App = CreateObject("Excel.Application") '引用程序对象实例
excel_App.Visible = False '设置Excel为不可见
'打开文件
Set excel_Book = excel_App.Workbooks.Open("G:\1.XLS") '工作簿实例
Set excel_sheet = excel_Book.Worksheets("Sheet2") '数据表实例
excel_sheet.Range("C1").Value = "你好!" '设置单元格C1的值为"你好!"
excel_sheet.Range("A1").Value = 100 '设置单元格A1的值为100
excel_sheet.Range("A2").Value = 9 '设置单元格A2的值为9
excel_sheet.Range("A3").Value = excel_sheet.Range("A1").Value + excel_sheet.Range("A2").Value '计算
'''''''''''''''''''''''''''''''''''
'读取数据到变量
x = excel_sheet.Range("A2").Value ' 把单元格"A2"里的数据读取出来

'关闭Excel文件,注意下面步骤很重要,不能少!!!

Set excel_sheet = Nothing
excel_App.ActiveWorkbook.Close savechanges:=True '保存对EXCELL进行更改。
Set excel_Book = Nothing
excel_App.Quit
Set excel_App = Nothing

可以
dim wb as workbook , a&
set wb = getobject("文件的全部zhidao路径")
with wb

for a = 1 to wb.sheets.count

if sheets(a).name = " 4月份" then

.sheets(1).range().copy thisworkbook

activesheets.name = " 名称"

`专``
```
end with

具体操作需要看数据而属行了

实际就是通知过EXCEL读取，类似这种，把TXT文件（B文件）读入内存道，并把需要的根据条件（专A文件）写入EXCEL表格（C文件）

Sub ctxt()  '读取多个选中的TXT中的内容写入到EXLCE
dim i%
FilesToOpen = Application.GetOpenFilename("文本文件（*.txt）,*.txt", MultiSelect:=True, Title:="要统计的属文件")
For Each Files In FilesToOpen
Open Files For Input As #1
i = 1
 Do
  Input #1, a
  If Len(a) > 0 Then
   Cells(ActiveSheet.Cells(65536, i).End(xlUp).Row + 1, i) = a
   i = i + 1
 End If
 Loop While Not EOF(1)
 
Close #1
Next
End Sub

假设在PPT中添加一个Textbox1. 再添加一个命令
在运行命令后，Textbox调用Excel中的指定Range的数据。
程序如下：注意e68a84e8a2ad7a686964616f339需要先引用Microsoft excel 12.0 object library
Private Sub CommandButton1_Click()
Dim MyexcelApp As New Excel.Application
Dim MyexcelBook As New Excel.Workbook
Dim MyexcelSheet As New Excel.Worksheet
Pathstr = "C:\Documents and Settings\Administrator\桌面\test.xlsx"
Set MyexcelBook = MyexcelApp.Workbooks.Open(Pathstr)
Set MyexcelSheet = MyexcelBook.Worksheets(1)
MyexcelSheet.Activate
TextBox1.Text = MyexcelSheet.Range("B2").Value
MyexcelBook.Close
Set MyexcelApp = Nothing
Set MyexcelBook = Nothing
Set MyexcelSheet = Nothing
End Sub