我收到运行时错误。Activex 组件无法创建对象。
我已经尝试了从重新安装办公室到检查我的注册表的所有方法,但都没有运气。我检查了我的管理员权限,但没有解决。我的代码是正确的
这是代码:
Sub GetSheetInfo()
Dim wbXL As Excel.Workbook
Set wbXL = CreateObject("D:\project\Ruby\Live info Ruby.xls")
Range("A9:H800").Select
Selection.EntireRow.Delete
Windows("Live info Ruby.xls").Activate
Sheets("Ruby - 2020").Select
Range("A155:g950").Select
Selection.Copy
Windows("Project Duration.xlsm").Activate
Sheets("Frequency").Select
Range("A9").Select
Selection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
wbXL.Close
End Sub
基本上所有这些都是从另一个excel文件表复制并将其粘贴到另一个excel文件(带有宏的文件)
我会接受任何和所有建议,包括代码更改
在复制和粘贴时,我会避免使用“.Select”方法。我会开始采用这种方法:
变暗并复制所需的范围。
Sub GetSheetInfo()
Dim wbXL As Excel.Workbook
Dim CWB As Workbook
Set CWB = Thisworkbook
Set wbXL = Application.Workbooks.Open("D:\project\Ruby\Live info Ruby.xls")
Range("A9:H800").ClearContents
Dim CopyRange As Range
Set CopyRange = wbXL.Sheets("Ruby - 2020").Range("A155:G950")
CopyRange.Copy
CWB.Sheets("Frequency").Range("A9").PasteSpecial _
Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _
, SkipBlanks:=False, Transpose:=False
'Added "False" to not save workbook when closing. You can remove this if needed
wbXL.Close False
End Sub
您可以使用它来查看excel是否能够打开文件。如果它能够打开文件,它会告诉您它使用的路径。确保您选择使用的代码中的路径与此路径逐字匹配。
Option Explicit
Sub Test()
Dim FileOpen As FileDialog
Dim fullpath As String
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = False
.Title = "Select a File"
.Filters.Clear
.Show
fullpath = .SelectedItems(1)
End With
MsgBox fullpath
Workbooks.Open fullpath
End Sub
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句