Excel VBA質問箱 IV

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

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


33437 / 76734 ←次へ | 前へ→

【48517】Re:非レコード形式のExcelをADOで扱いたい
発言  ウッシ  - 07/4/20(金) 11:56 -

引用なし
パスワード
   こんにちは

>インポート元の、A2:J2、B3,E3,G3、B5,H5、B6,H6、B7,E7,G7、B8,H8、B9,H9

>インポート先に、1行の各セルに、上の順番で並べたいのです。
「,」「、」の違いが気になるのですが、こんな感じでしょうか?

Sub test1()
  Dim strDBPath As String
  Dim v     As Variant
  Dim m     As Variant
  Dim mArray  As Variant
  Dim i     As Long
  Dim j     As Long
  Dim r     As Range
  
  v = Application.GetOpenFilename("エクセルブック(*.xls),*.xls", , , , False)
  If VarType(v) = vbBoolean Then Exit Sub
  
  strDBPath = "='" & Replace(v, Dir(v), "[" & Dir(v) & "]") & "Sheet1'!"

  mArray = Array("A2:J2", "B3", "E3", "G3", "B5", _
          "H5", "B6", "H6", "B7", "E7", "G7", "B8", "H8", "B9", "H9")
          
  i = Cells(Rows.Count, 1).End(xlUp).Row + 1
  Rows(i).ClearContents
  j = 1
  For Each m In mArray
    For Each r In Range(CStr(m))
      With Cells(i, j)
        .Formula = strDBPath & r.Address
        .Value = .Value
      End With
      j = j + 1
    Next
  Next
End Sub

インポートデータを1セルずつ処理してますので、その値で必要なデータかどうかの
判定処理も入れられますけど、どのセルで判定するのか分かりませんので何もして
ません。

3 hits

【48400】非レコード形式のExcelをADOで扱いたい syn 07/4/16(月) 12:46 質問
【48402】Re:非レコード形式のExcelをADOで扱いたい Kein 07/4/16(月) 13:05 発言
【48437】Re:非レコード形式のExcelをADOで扱いたい syn 07/4/17(火) 15:09 質問
【48427】Re:非レコード形式のExcelをADOで扱いたい ウッシ 07/4/17(火) 11:28 発言
【48439】Re:非レコード形式のExcelをADOで扱いたい syn 07/4/17(火) 15:55 質問
【48440】Re:非レコード形式のExcelをADOで扱いたい ウッシ 07/4/17(火) 16:01 発言
【48499】Re:非レコード形式のExcelをADOで扱いたい syn 07/4/19(木) 15:12 質問
【48500】Re:非レコード形式のExcelをADOで扱いたい ウッシ 07/4/19(木) 16:01 発言
【48513】Re:非レコード形式のExcelをADOで扱いたい syn 07/4/20(金) 11:26 質問
【48517】Re:非レコード形式のExcelをADOで扱いたい ウッシ 07/4/20(金) 11:56 発言
【48520】Re:非レコード形式のExcelをADOで扱いたい syn 07/4/20(金) 12:56 質問
【48521】Re:非レコード形式のExcelをADOで扱いたい ウッシ 07/4/20(金) 12:59 発言
【48524】Re:非レコード形式のExcelをADOで扱いたい syn 07/4/20(金) 13:51 質問
【48525】Re:非レコード形式のExcelをADOで扱いたい ウッシ 07/4/20(金) 13:59 発言
【48527】Re:非レコード形式のExcelをADOで扱いたい syn 07/4/20(金) 14:30 お礼
【48456】Re:非レコード形式のExcelをADOで扱いたい ハチ 07/4/18(水) 11:34 発言
【48493】Re:非レコード形式のExcelをADOで扱いたい syn 07/4/19(木) 11:13 質問
【48496】Re:非レコード形式のExcelをADOで扱いたい ハチ 07/4/19(木) 13:29 発言
【48498】Re:非レコード形式のExcelをADOで扱いたい syn 07/4/19(木) 15:05 質問
【48501】Re:非レコード形式のExcelをADOで扱いたい ハチ 07/4/19(木) 16:36 発言
【48518】Re:非レコード形式のExcelをADOで扱いたい syn 07/4/20(金) 11:59 お礼

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