Function Do_export(sheetName As String, Optional ServerCfgName As String = "", Optional ClientCfgName As String = "") As String
Dim url, strContent As String
Dim Xls As Application
Dim XlsWB As Workbook
Dim pSheet As Worksheet
If ServerCfgName = "" Then
ServerCfgName = sheetName
End If
If ClientCfgName = "" Then
ClientCfgName = sheetName
End If
Set Xls = CreateObject("Excel.Application")
Set XlsWB = Xls.Workbooks.Open(Application.ActiveWorkbook.Path + "\export.xla")
Set pSheet = ActiveWorkbook.Worksheets(sheetName)
url = Application.ActiveWorkbook.Path + "\export\lua\" + StrConv(ServerCfgName, vbLowerCase) + "_cfg.lua"
ConfigName = StrConv(ServerCfgName, vbLowerCase) & "_config"
strContent = Xls.Run("Do_Lua_export", pSheet, ConfigName)
strContent = Xls.Run("WriteUTF8File", strContent, url, False)
MsgBox "已經成功匯出" + sheetName + "資料到 " & url
ClientCfgName = Xls.Run("aa2Aa", ClientCfgName)
url = Application.ActiveWorkbook.Path + "\..\src\com\app\dataBase\Kf" + ClientCfgName + "Config.as"
strContent = Xls.Run("Do_as_export", pSheet)
strContent = Xls.Run("WriteUTF8File", strContent, url, False)
MsgBox "已經成功匯出" + sheetName + "資料到 " & url
Xls.Workbooks.Close
Xls.Quit
Do_export = ""
End Function
運行到 strContent = Xls.Run("Do_Lua_export", pSheet, ConfigName)
提示400錯誤。錯誤描述是引數錯誤或無效的屬性賦值。
這是什么原因啊？
PS：初次接觸VBA，求各位大大賜教，在線等！
uj5u.com熱心網友回復：
有大神在線嗎？求解~~~自己查了很久不知道run方法的引數是怎么給的
office提供的檔案說是第一個引數是字符命令，第二個是視窗樣式，第三個是回傳腳本或false
對第一個引數有沒有什么限制的
uj5u.com熱心網友回復：
監視了xls物件發現沒有Run方法，這是什么情況啊？這個代碼是別人給的！轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/119345.html
標籤：VBA
上一篇：vb向access里面添加資料
下一篇：excel滾動條怎么設定