Access 2007/2010 VBA选择并上传Excel 2007格式文件

用户注册

投稿取消

文章分类:

还能输入300字

上传中....

热门文章更多>>

标签更多>>

wordpress4.2.2下载 word2013如何设置水印 sshpassword 手机视频文字编辑软件通达信软件的股价站上5日线预警公式 adobereader更改语言软件测试自学网站电子版手抄报怎么做 word批注直接修改 word表格里写不了字 word上下文字间距怎么调方正软件保护卡 go90 然后让软件在后台运行反统方软件如何破解

专题更多>>

最新文章更多>>

要上我随便

Access 2007/2010 VBA选择并上传Excel 2007格式文件

Option Explicit
Private Sub BrowseCmd_Click()
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "Excel 2007 Files", "*.xlsx"
        .Filters.Add "All Files", "*.*"
        If .Show = -1 Then
            FilePathTxt.SetFocus
            FilePathTxt.Locked = False
            FilePathTxt.Text = .SelectedItems(1)
            FilePathTxt.Locked = True
        End If
    End With
End Sub
Private Sub UploadCmd_Click()
    FilePathTxt.SetFocus
    If FilePathTxt.Text <> "" Then
        DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12Xml, "TableData", FilePathTxt.Text, True
        FilePathTxt.Locked = False
        FilePathTxt.Text = ""
        FilePathTxt.Locked = True
    End If
End Sub