VBA下弹框打开excel文件并读取数据
2017-05-02 11:24
501 查看
Sub LoadExcelData()
Dim wkbk As Workbook '定义一个工作薄
Dim myFileName As String '定义要读取的文件路径
Dim dataRow As Integer '定义数据的行
Dim dataColumn As Integer '定义数据的列
Dim rgRC As String '读取的单元格内容(dataRow,dataColumn)
Dim arr(3 To 10, 1 To 9) As String '定义一个二维数组
' myFileName = Application.GetOpenFilename("EXCEL文件(*.xlsx), *.xls") '浏览文件,如XX公司17年XX表.xls
If myFileName = "False" Then '如果按取消那么弹出对话框
'MsgBox "请选择文件!", vbInformation, "取消"
Else
Set wkbk = Workbooks.Open(myFileName) '先打开要复制的文件
wkbk.Activate '激活打开工作簿
For dataRow = 3 To 10 '设置行的范围
For dataColumn = 1 To 9 '设置列的范围
Sheets("sheet1").Activate
rgRC = Cells(dataRow, dataColumn) '取得
arr(dataRow, dataColumn) = Cells(dataRow, dataColumn)
Next dataColumn
Next dataRow
Sheets("Sheet3").Activate
wkbk.Close False '关闭工作薄
For dataRow = 3 To 10
For dataColumn = 1 To 9
Cells(dataRow, dataColumn) = arr(dataRow, dataColumn)
Next dataColumn
Next dataRow
MsgBox "数据导入成功!"
End If
End Sub
Dim wkbk As Workbook '定义一个工作薄
Dim myFileName As String '定义要读取的文件路径
Dim dataRow As Integer '定义数据的行
Dim dataColumn As Integer '定义数据的列
Dim rgRC As String '读取的单元格内容(dataRow,dataColumn)
Dim arr(3 To 10, 1 To 9) As String '定义一个二维数组
' myFileName = Application.GetOpenFilename("EXCEL文件(*.xlsx), *.xls") '浏览文件,如XX公司17年XX表.xls
If myFileName = "False" Then '如果按取消那么弹出对话框
'MsgBox "请选择文件!", vbInformation, "取消"
Else
Set wkbk = Workbooks.Open(myFileName) '先打开要复制的文件
wkbk.Activate '激活打开工作簿
For dataRow = 3 To 10 '设置行的范围
For dataColumn = 1 To 9 '设置列的范围
Sheets("sheet1").Activate
rgRC = Cells(dataRow, dataColumn) '取得
arr(dataRow, dataColumn) = Cells(dataRow, dataColumn)
Next dataColumn
Next dataRow
Sheets("Sheet3").Activate
wkbk.Close False '关闭工作薄
For dataRow = 3 To 10
For dataColumn = 1 To 9
Cells(dataRow, dataColumn) = arr(dataRow, dataColumn)
Next dataColumn
Next dataRow
MsgBox "数据导入成功!"
End If
End Sub
相关文章推荐
- VBA 从一个未打开的Excel文件中读取数据到,已打开的文件中.
- 使用VBA从海量Excel文件中模糊获取数据并生成新表(附实例) - (二) VBA跨Excel读取数据
- 用C#编程从数据库中读取图片数据导进Excel文件的方法(如何从数据库中读取保存的文件,直接打开,中间不保存到本地)
- 用C#编程从数据库中读取图片数据导进Excel文件的方法(如何从数据库中读取保存的文件,直接打开,中间不保存到本地)
- asp.net中打开Excel上传文件,读取数据的方法
- ASP.NET中上传并读取Excel文件数据
- 打开一个Excel模板文件填充数据另存为一个文件
- 转载:ASP.NET中上传并读取Excel文件数据,附后生成EXCEL及杀掉EXCEL进程。
- ASP.NET中上传并读取Excel文件数据
- 将后台数据读取到前台的EXCEL文件中去,用javascript实现,asp.net,javacript(发一个原创)
- ASP.NET中上传并读取Excel文件数据,附后生成EXCEL及杀掉EXCEL进程。
- [导入]ASP.NET中上传并读取Excel文件数据
- 读取Excel文件中的数据
- 读取Excel文件中的数据,并显示在MSFlexGrid表格中
- 读取Excel文件并在SQL server中新建Table上传数据
- 用C#编程从数据库中读取图片数据导进Excel文件的方法
- 打开一个Excel模板文件填充数据另存为一个文件
- ADO 读取Excel文件数据, 丢失数据或数据错误问题。
- ASP.NET中上传并读取Excel文件数据
- 于Excel文件上传读取数据的问题