主题：请教一个日期时间的导入问题！

有新人会看这个贴然后很迷茫，看不懂，我重新给一个简单的

 

此主题相关图片如下：qq图片20170823225121.png

 

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "excel文件|*.xlsx; *.xls" '设置筛选器
Dim dr As DataRow
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
   
    Dim App As New MSExcel.Application
    try
        Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
        Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
        Dim Rg As MSExcel.Range = Ws.UsedRange
        Dim ary = rg.value
       
        '重点看这里,自己根据表格位置调整导入把---
        For n As Integer = 1 To rg.Rows.Count
            output.show(ary(n,1) & "," & ary(n,2) & "," & ary(n,3) & "," & ary(n,4))
        Next
        '重点看这里,自己根据表格位置调整导入把---
       
        MessageBox.Show("导入成功!","恭喜!")
    catch ex As exception
        msgbox(ex.message)
        MessageBox.Show("导入失败!","恭喜!")
    finally
        app.quit
    End try
End If

 

 

思路关键就是获取完整个excel表格后，知道 ary(1,1)代表 单元格(1,1)，剩下就是自己遍历去塞

中间的代码 Dim ary = rg.value ary不用申明类型么？

Dim ary = rg.value 请问这段代码，不用申明类型吗？dim ary也不是申明数组的格式呀？

 

不声明，就是object类型。

 

rg.Value 返回的是一个二维数组。