下記の様なコードがあり、EXCELのデータを別EXCELの指定シートの日付欄と合致させ、データを 貼り付けるという内容です。 ★部の所で実行時エラー '1004':RangeクラスのSelectメソッドが失敗しました。となってしまいます。 なぜか不明確なためアドバイスを宜しくお願い致します。 K2 = Range("K2") K3 = Range("K3") Dim wb As String Dim dy As String Dim dy2 As String Dim a As String dy = Range("K5") dy2 = Range("M1") Range("R5:R41").Copy wb = "D:\Documents and Settings\ssk\デスクトップ\" & dy & ".xls" Workbooks.Open (wb) Workbooks(dy & ".xls").Sheets("data").Select For n = 2 To 100 Step 1 a = Cells(1, n).Value If Cells(1, n).Value = dy2 Then Worksheets("data").Activate Cells(3, n).PasteSpecial Paste:=xlPasteAll Application.CutCopyMode = False End If Next 'err1: 'Excel.Application.CutCopyMode = False 'With ThisWorkbook 'If Workbooks.Count > 1 Then '.Saved = True ' .Close False ' Else ' .Saved = True ' Application.Quit '.Close ' End If 'End With End Sub
↧