424對象未找到

-1

這是我的代碼。最後我得到了424錯誤。從我所瞭解的情況來看，我不需要這件作品的對象，所以我很困惑，爲什麼我得到這個錯誤。424對象未找到

編輯：我在最後一行得到的錯誤。

「工作表（」工作表Sheet 「）。範圍（」 B1 「）。PasteSpecial.Values」

我給SrchRng作爲範圍，並且也是值。調試器中仍強調同一行。

Dim a As Range 
    Dim fd As FileDialog 
    Dim oFD As Variant 
    Dim AmazonFile As String 
    Dim Freight As Range 
    Dim OrderNo As Range 



    Set fd = Application.FileDialog(msoFileDialogFilePicker) 
    With fd 
     .ButtonName = "Select" 
     .AllowMultiSelect = False 
     .Filters.Add "Amazon File", "*.csv", 1 
     .Title = "Choose Text File" 
     .InitialView = msoFileDialogViewDetails 
     .Show 

     For Each oFD In .SelectedItems 
      AmazonFile = oFD 
     Next oFD 
     On Error GoTo 0 
    End With 
    MsgBox AmazonFile 

    Set fd = Nothing 
    Workbooks.Open (AmazonFile) 


    Dim myString As String 
    Dim SrchRng 



    Do 
     Set a = SrchRng.Find("Carrier - Fee", LookIn:=xlValues) 
      If Not a Is Nothing Then a.EntireColumn.Copy 
       Loop While a Is Nothing 
    ActiveWorkbook.Sheets.Add 

    Worksheets("Sheet1").Range("B1").PasteSpecial.Values

來源

2016-08-04 CrazyKnows

'SrchRng'從未有一個值之前設置這一行：'Set a = SrchRng.Find（「Carrier - Fee」，LookIn：= xlValues）' – Comintern

'SrchRng'永遠不是initiali zed，並且您無法在未初始化的變量上調用Find方法。使用調試器。 –

感謝您的回覆。我仍然在最後一行發現錯誤：「工作表（」Sheet1「）。範圍（」B1「）。PasteSpecial.Values」通過調試器。 – CrazyKnows

的問題是，PasteSpecial方法不是一個對象

改變這一行

Worksheets("Sheet1").Range("B1").PasteSpecial.Values

向該線

Worksheets("Sheet1").Range("B1").PasteSpecial xlPasteValues

來源

2016-08-04 23:58:04

由不正確的代碼判斷，OP可能只需要值，所以您需要添加'xlPasteValues'的Paste參數。 – YowE3K

@ YowE3K很好的觀察。再次感謝 – 2016-08-05 03:12:13

謝謝！這使它工作。好看@ YowE3K – CrazyKnows

424對象未找到

回答

相關問題