ExcelブックからExcelを開き、内容をコピーする

Question

特定のファイルを開き、そのファイルからセルをコピーしてアクティブなブックに貼り付けるが、 '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 

Answer 1

は、以下のコード

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 

Answer 2

を試してみて、あなたはまた、定義すべき "SEL 電子 ction.Copy"

上の誤植を持っていますそこからワークシートの範囲がわかります。操作を適用するマクロとは異なるアクティブなページでマクロを呼び出すと、マクロは機能しません。

open_book.Sheets("My_Sheet").Range("A:A,H:H").Select