[英]Open workbook through excel vba and copy contents
我想打开一个特定的文件并从该文件中复制单元格并粘贴到活动工作簿中,但我收到错误'438':对象不支持此属性或方法。
这是我的代码:
Sub open_file()
Dim open_book As Variant
com_name = InputBox("Enter Company Ticker", "Enter Company Ticker")
If (IsEmpty(com_name)) Then
msg = MsgBox("Please, enter company ticker", vbCritical)
Else
open_book = Workbooks.Open("E:\Mutual Fund\data\nifty 50\" & com_name & ".xlsx")
Windows(com_name & ".xlsx").Activate
Range("A:A,H:H").Select
Selction.Copy
Windows("try.xlsm").Activate
Range("A1").Select
Selection.Paste
End If
End Sub
请尝试以下代码
Sub open_file()
Dim open_book As Variant
com_name = InputBox("Enter Company Ticker", "Enter Company Ticker")
If (IsEmpty(com_name)) Then
msg = MsgBox("Please, enter company ticker", vbCritical)
Else
Set open_book = Workbooks.Open("E:\Mutual Fund\data\nifty 50\" & com_name & ".xlsx")
Range("A:H").Copy Windows("try.xlsm").ActiveSheet.Range("A1")
End If
End Sub
您对“SELèction.Copy”一个错字错误
您还应该定义范围来自哪个工作表。 如果您使用与要应用操作的活动页面不同的活动页面调用宏,则它将无效。 做这样的事情:
open_book.Sheets("My_Sheet").Range("A:A,H:H").Select
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.