- 帖子
- 79
- 主題
- 19
- 精華
- 0
- 積分
- 148
- 點名
- 0
- 作業系統
- WINDOW7
- 軟體版本
- EXCEL 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2017-5-21
- 最後登錄
- 2023-3-13
|
23#
發表於 2019-3-18 22:22
| 只看該作者
Sub readData()
'数据读取
'----------------------------------------------
Dim dataExcel, Workbook, sheet
Dim totalRow As Integer
Set dataExcel = CreateObject("Excel.Application")
Set Workbook = dataExcel.Workbooks.Open("E:\要读取数据的源文件.xlsx")
Set sheet = Workbook.Worksheets(1) '读取第一个sheet页的数据
totalRow = sheet.UsedRange.Find(what:="*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
For i = 2 To totalRow
Sheets("sheet1").Cells(i, 3) = sheet.Cells(i, 4)
Next i
Workbook.Close
MsgBox "读取成功！", vbSystemModal '读取完后弹框提醒
'----------------------------------------------
End Sub |
|
