ブックを別のブックにコピー

Question

このコードを開発する際に問題が発生しています。ワークブックから既存のパスに新しいデータをコピーするコードを開発できましたが、既存のパスワークブックからデータを取得しようとする際に問題にぶつかります。

私のシステムには、データを収集するワークブックがあるという概念です。データは、プロジェクト情報を扱っているさまざまなユーザーからのものです。プロジェクトを完了すると、この新しい情報と既存の情報がアップロードされ、ワー​​クブックにそのデータが収集されます。データを収集するワークブックには、常に定義されたパスがあります。ユーザーが作業しているワークブックは、システム全体の複数の場所に配置されます。

以下のマクロは、 "Organizer.Sheets（" Partnumber_Vendor_Database "）で失敗し続けます。なぜ私は不明です。

"オーガナイザ"は、ユーザーが使用するローカルデータベースです。 "Partnumber_Vendor_File"は、情報が格納されるローカルデータベースです。

このコードがより良く開発されていることがわかったら私にお知らせください！ :)

Sub Find_Partnumber_Vendor_File() 

' This sub is to open the partnumber_Vendor file to update the local database. 

    On Error Resume Next 

    Dim Organizer As Workbook 
    Set Organizer = Application.ActiveWorkbook 


    Dim Partnumber_Vendor_File As Workbook 
    Set Partnumber_Vendor_File = Workbooks.Open("S:\Supply Chain\PURCHASING\Forms and Templates\BOM Organizer\Partnumber_Vendor_File.xlsx") 

    If Err.Number = 1004 Then 
    MsgBox "Could not open. Check path in VBA" 
    Exit Sub 
    End If 

    If Partnumber_Vendor_File.ReadOnly Then 
     MsgBox "Sorry, partnumber to vendor database was already in use, try later" 
     Exit Sub 
    End If 

    On Error GoTo 0 

    Dim Data As Long 
    Data = ActiveSheet.Cells(Rows.count, 1).End(xlUp).Row 
    Range("A1:" & "D" & Data).Copy 


    Organizer.Sheets("Partnumber_Vendor_Database").Select 
    Range("A1:D1").Select 
    Selection.Insert Shift:=xlDown 

    Partnumber_Vendor_File.Close 


End Sub 

Answer 1

ActiveWorkbook、ActiveSheetとSheets(<Title of the Sheet.)を避けるため、使いやすいですAlthoug。

最初の2つの問題は、アクティブワークブックが実際にあなたが探しているブックであるかどうかを知ることが難しいことです。これを回避するには、Workbooksオブジェクトを使用してNAME（プロパティーCodeName）で正しいワークブックを選択する方法があります。あなたが彼らを適切に呼び出すことができるように、シートの同じ名前は、シートの実際の名前を変更します。

第3のものは基本的に同じ原理です。一般に、スプレッドシートのタイトルを参照として使用しないでください。オブジェクトの実際の名前を使用してください。変更するには、VBAコードのプロパティウィンドウを使用します。 - あなたの選択したブックは、あなたが仕事をしたい、実際のワークブックではありません

1：

エラーが2つの状況から来るかもしれません。

2 - 「Partnumber_Vendor_Database」シートのタイトルが変更または誤っていました。

希望します。