Excel VBA質問箱 IV

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

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


41348 / 76732 ←次へ | 前へ→

【40465】Re:特定のファイルを開き、データをコピーする
回答  Kein  - 06/7/14(金) 11:15 -

引用なし
パスワード
   値を引っ張るだけなら、ブックを開かなくてもリンクを使って出来ます。
概ね以下のようなコードになります。

Sub Data_Link()
  Dim WB As Workbook
  Dim Flg As Boolean
  Dim MyF As String, LkSt1 As String, LkSt2 As String
  Const Fol As String = _
  "C:\Documents and Settings\AYUMI\デスクトップ"

  ChDir Fol
  MyF = Application _
  .GetOpenFilename("Microsoft Excelブック(*.xls),*.xls")
  If MyF = "False" Then Exit Sub
  For Each WB In Workbooks
    If WB.Name = "書き込みデータ.xls" Then
     Flg = True: Exit For
    End If
  Next
  If Flg = False Then
    Workbooks.Open ThisWorkbook.Path & "\書き込みデータ.xls"
  End If
  LkSt1 = "='" & Fol & "\[" & Dir(MyF) & "]Sheet1'B2"
  LkSt2 = "='" & Fol & "\[" & Dir(MyF) & "]Sheet1'B9"
  With Workbooks("書き込みデータ.xls").Worksheets(1)
    With .Range("B3:F7")
     .Formula = LkSt1
     .Value = .Value
    End With
    With .Range("B9:F13")
     .Formula = LkSt2
     .Value = .Value
    End With
  End With
  Workbooks("書き込みデータ.xls").Save
End Sub

0 hits

【40445】特定のファイルを開き、データをコピーする 亜由美 06/7/13(木) 21:27 発言
【40446】Re:特定のファイルを開き、データをコピー... ぱっせんじゃー 06/7/13(木) 21:43 発言
【40447】Re:特定のファイルを開き、データをコピー... 亜由美 06/7/13(木) 21:49 質問
【40463】Re:特定のファイルを開き、データをコピー... Jaka 06/7/14(金) 10:46 発言
【40465】Re:特定のファイルを開き、データをコピー... Kein 06/7/14(金) 11:15 回答
【40466】Re:特定のファイルを開き、データをコピー... Kein 06/7/14(金) 11:18 発言
【40470】Re:特定のファイルを開き、データをコピー... 亜由美 06/7/14(金) 13:27 お礼

41348 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free