问题描述
我是vba的初学者,我正尝试将excel导入vba表。
我的代码如下:
//私人子Import_Click() 将FSO调暗为新的FileSystemObject 如果Nz(Me.txtfileName,“”)=“”然后 MsgBox(“ *请选择文件”) 退出子 万一 如果FSO.FileExists(Nz(Me.txtfileName,“”))然后
呼叫上载(FSO.GetAbsolutePathName(Me.txtfileName)) 其他 MsgBox(“找不到文件”) 万一 结束Sub //
//公共子上传(xlpath作为字符串) 昏暗的TableName作为字符串 TableName =“ Log_Data”
If (Right(xlpath,3) = "xls") Or ((Right(xlpath,4) = "xlsx")) Then
DoCmd.TransferSpreadsheet acImport,acSpreadsheetTypeExcel12Xml,TableName,xlpath
End If
结束字幕 // 第一次,我可以成功导入,但出现“外部表不是预期的格式”。 我尝试通过更改电子表格类型来尝试,但不能。 请让我得到建议。 谢谢。
解决方法
暂无找到可以解决该程序问题的有效方法,小编努力寻找整理中!
如果你已经找到好的解决方法,欢迎将解决方案带上本链接一起发送给小编。
小编邮箱:dio#foxmail.com (将#修改为@)