[英]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.