xlApp.ActiveSheet.range("A1：H1").HorizontalAlignment = xlCenter 不要使用activesheet。试试改成：xlApp.Sheets("sheet1").range("A1：H1").HorizontalAlignment = xlCenter 我怀疑你的xlapp根本就没有激活。怎么会有activesheet，导致range为空，当然就设置不了。。你改成这个，同样是因为前面没有工...
在VB的菜单,[工程] -- [引用]，在引用对话框里，找到“Microsoft Excel XX.X Object Library”勾选上，[确定]。其中： XX.X 取决于你安装的OFFICE 版本。这样才可以用VB操作excel。
Error#1004 Function ExportToExcel2()不能设置类Window的FreezePanes属性,如下图: 解决方法: 在Main数据库里面新建一个模块,将下列代码贴在模块里面保存即可,再操作导出Excel即可解决。 Function ExportToExcel2(Optional WorkbookName As String, _ Optional WorksheetName As String, _ Optional StartRange As String...
Error#1004 Function ExportToExcel2()不能设置类Window的FreezePanes属性,如下图: 解决方法: 在Main数据库里面新建一个模块,将下列代码贴在模块里面保存即可,再操作导出Excel即可解决。 Function ExportToExcel2(Optional WorkbookName As String, _ Optional WorksheetName As String, _ Optional StartRange As String...