文件名问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 文件名问题

共有1396人关注过本帖树形打印复制链接主题：文件名问题

HJG_HB950207

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：394 积分：5997 威望：0 精华：0 注册：2015/2/17 10:18:00

文件名问题

Post By：2017/8/7 16:42:00 [只看该作者]

选择文件存入【距离】表

Dim dlg As New OpenFileDialog

dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb"

If dlg.ShowDialog = DialogResult.Ok Then

Dim ip As New Importer

ip.SourcePath = dlg.FileName

ip.SourceTableName = "sHeeT1"

ip.NewTableName ="距离"

ip.Format = "Excel"

ip.Import()

End If

请教:

选择文件后，如电子表格，如何判断所选文件有无“sheet1”的数据表？

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/8/7 16:47:00 [只看该作者]

Dim dlg As New OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb"
If dlg.ShowDialog = DialogResult.Ok Then
    Dim book As new XLS.Book(dlg.FileName)
    Dim flag As Boolean = False
    For Each sheet As XLS.Sheet In book.Sheets
        If sheet.name = "sheet1" Then
            flag = True
        End If
    Next
    If flag Then
        Dim ip As New Importer
        ip.SourcePath = dlg.FileName
        ip.SourceTableName = "sheet1$"
        ip.NewTableName ="距离"
        ip.Format = "Excel"
        ip.Import()
    Else
        msgbox("不存在sheet1")
    End If
End If

HJG_HB950207

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：394 积分：5997 威望：0 精华：0 注册：2015/2/17 10:18:00

Post By：2017/8/7 16:49:00 [只看该作者]

谢谢老师！

下一主题 >> << 上一主题

主题：文件名问题