エクセルマクロでセルに記入してあるパスから指定のブックを開きたい。
上記画像のK1の部分に任意の数値、例えば3といれるとその数値分、C2からC4までのパスからブックを開けるようにしたいのですが
どうしても見つかりませんとでてしまいます。
ファイル名は間違ってないし、パスも間違いないです。
となるとコードが問題だと思うのですが何がダメなのかわかりません。
なので教えていただきたいです。
よろしくお願い致します。
Sub Graph() Dim op As Worksheet Dim cPath As String Set op = Workbooks("CAB-Grapf.xls").ActiveSheet cPath = op.Range("B1").Value Application.ScreenUpdating = False 'シートを追加 Worksheets.Add After:=Sheets("DATA"), Count:=op.Range("K1").Value Dim i As Integer For i = 1 To op.Range("K1").Value If i > 10 Then '入力値が予定数を超えてしまったら終了 MsgBox "シートが追加されていません。" Exit For End If Sheets("sheet" & i).Select 'シート名部分を sheet と i で組み合わせて作る ActiveSheet.Name = op.Range("B2").Offset(i - 1, 0).Value 'B2セルを先頭に行方向にオフセット Next 'シート追加ここまで 'WorkBookを開く Sheets("DATA").Select For i = 1 To op.Range("K1").Value If i > 10 Then MsgBox "Bookがそんなにありません" Exit For End If Workbooks.Open op.Range("C2").Offset(i - 1, 0).Value Next End Sub
あと、もう一つあるのですが、
Workbooks.Open op.Range("C2").Offset(i - 1, 0).Value
のOffsetの部分をなんとなく使っていてあまり理解できてないのですが、
C2を起点としてOffset(i - 1, 0).ValueをするとなぜC2から行が順に下がっていくのでしょうか?
回答3件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2017/01/25 02:05