EXCEL2007 マクロ
EXCELのマクロですが、EXCEL2003で作成しました。
EXCEL2003では正常に動作しましたが、EXCEL2007だと「処理を開始する」「OK」のメッセージが出た後
『インデックスが有効範囲にありません』
とエラーがでると他の人に言われたのですが、この中に2007だと使用できない命令があるでしょうか?
あるとしたら、2007~2000まで使用できる代わりの命令などはあるでしょうか?
よろしくおねがいします。
Private Sub CommandButton2_Click()
Dim fName As String, orgDir As String
Const タイトル = "「csv」ファイルを選択してから、[開く]ボタンをクリックしてください。"
Const ファイルの場所 = "C:\" 'ファイルの場所
Const フィルタ1a = "CSV" 'ファイルの種類
Const フィルタ1b = "*.csv" 'ファイルの拡張子
orgDir = CurDir
ChDir ファイルの場所
fName = Application.GetOpenFilename(フィルタ1a & "," & フィルタ1b, 1, タイトル)
If fName <> "False" Then
Workbooks.Open fName
Else
MsgBox "[キャンセル]または[×]ボタンがクリックされました。", , "タイムカード注入"
Exit Sub
End If
ChDir orgDir
If MsgBox("処理を開始します", vbOKCancel + vbInformation, "最終確認") = vbCancel Then
Exit Sub
End If
Windows("2008.csv").Activate
Sheets("2008").Range("C3:C33").Select
Application.CutCopyMode = False
Selection.Copy
Windows(ThisWorkbook.Sheets("報告書").Range("A2") & ".xls").Activate
Range("G5:G35").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("2008.csv").Activate
Sheets("2008").Range("K3:K33").Select
Application.CutCopyMode = False
Selection.Copy
Windows(ThisWorkbook.Sheets("報告書").Range("A2") & ".xls").Activate
Range("I5:I35").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Workbooks("2008.csv").Close SaveChanges:=False
End Sub