Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

50508 / 76738

←次へ　｜　前へ→


	【31119】Re:異なる複数のブックのシート１と２からのデータの貼り付け

Kein - 05/11/11(金) 21:01 -


	引用なし

	パスワード

ベタ書きしますので、エラーがあったら報告して下さい。
リンクを張って値を持ってくるコードです。

Sub Test_Link()
　 Dim i As Integer, j As Integer
　 Dim LkS1 As String, LkS2 As String
　 Dim Flg As Boolean

　j = 5
　 For i = 111 To 555 Step 111
　　　With ThisWorkbook
　　　　 LkS1 = "='" & .Path & "\[A" & i & ".xls]日報A'!"
　　　　 LkS2 = "='" & .Path & "\[A" & i & ".xls]日報B'!A1"
　　　　 With .Worksheets(1)
　　　　　　If Flg = False Then
　　　　　　　 .Cells(j, 27).Formula = LkS1 & "A1"
　　　　　　　 .Cells(j, 28).Formula = LkS1 & "B1"
　　　　　　　 .Cells(j, 2).Value = _
　　　　　　　 .Cells(j, 27).Value & .Cells(j, 28).Value
　　　　　　　 Flg = True
　　　　　　Else
　　　　　　　 .Cells(j, 2).Formula = LkS1 & "A1"
　　　　　　　 .Cells(j, 4).Formula = LkS2
　　　　　　End If
　　　　 End With
　　　End With
　　　j = j + 1
　 Next i
　 With ThisWorkbook.Worksheets(1)
　　　.Cells.Copy
　　　.Range("A1").PasteSpecial xlPasteValues
　　　.Tange("AA:AB").ClearContents
　 End With
　 Application.CutCopyMode = False
End Sub

0 hits

▼

【31064】異なる複数のブックのシート１と２からのデータの貼り付け PI 05/11/10(木) 22:50