如何在打开对话框打开一个EXCEL并操作

Question

比如说我要打开一个EXCEL，并从上面读数写到VB中
Private Sub Command1_Click()
Dim excel_App As Excel.Application
Dim excel_Book As Excel.Workbook
Dim excel_sheet As Excel.Worksheet
Set excel_App = CreateObject("Excel.Application")
    excel_App.Visible = False
    Set excel_Book = excel_App.Workbooks.Open(App.Path + "\文件A.xlsx")
    Set excel_sheet = excel_Book.Worksheets("Sheet1")
Dim i As Integer
Dim j As IntegerDim A(1 To 10, 1 To 12) As Integer
For i = 1 To 10
    For j = 1 To 12
        A(i, j) = excel_sheet.Cells(i + 1, j + 1)
        Print A(i, j);
        If j = 12 Then Print
       
    Next j
Next i End Sub
不要这样方式，而是弹出一个打开操作框让用户自己选择打开的EXCEL文件，该怎么写啊。

Answer 1

http://bbs.csdn.net/topics/392162498

Answer 2

提问的内容一模一样，代码也是一样的（连“代码风格”者是一样的，只是那边的要多几句），
肯定是楼主的另一个马甲。

没注意看，好像还真是的。话说csdn马甲很多，简单算下就知道，csdn的注册用户都几千万了，这意味着全中国的程序员都注册了csdn账号还不够。

Answer 3

Sub LoadExcelData()
    Dim wkbk As Workbook  '定义一个工作薄
    Dim myFileName 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 '激活打开工作簿
                
       ..................................
     你的代码
      ...................................
        
       
        wkbk.Close False '关闭工作薄
       
    MsgBox "数据导入成功！"   
   End If
End Sub