Excel VBA質問箱 IV

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

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


56485 / 76732 ←次へ | 前へ→

【24999】再びSOSです!
質問  つん E-MAIL  - 05/5/17(火) 13:22 -

引用なし
パスワード
   こんにちは^^
お世話になります〜

最近仕事がばたばたして、なかなか時間がとれないでいました。
合間を縫って、試行錯誤してるんですが、どうもわかりません。
もう一度、SOS出せていただきます。

えと、皆様のアドバイスを元に、

Private Sub cmdOK_Click()

  Dim strTougou() As String
  Dim i As Long
  
  
  With lstSheet
    If .ListCount = -1 Then
      MsgBox "統合するシートを選んでください"
      Exit Sub
    Else
      ReDim strTougou(.ListCount - 1)
      For i = 0 To .ListCount - 1
        strTougou(i) = """'" & ActiveWorkbook.Path & "\[" & ActiveWorkbook.Name & "]" & .List(i) & "'!" & pr_strAddress & """"
        
      Next i
    End If
  End With
 
pr_ws.Range(pr_strSaki).Consolidate sources:=strTougou, Function:=xlSum

End Sub

とやり直してみました。・・・が、やっぱり上手くいきません。

途中に

  For i = LBound(strTougou) To UBound(strTougou)
    Debug.Print strTougou(i)
  Next i

と入れて、配列の中味を確かめたところ、

"'C:\WINDOWS\デスクトップ\[統合テスト.xls]4月'!R13C7:R24C27"
"'C:\WINDOWS\デスクトップ\[統合テスト.xls]5月'!R13C7:R24C27"
"'C:\WINDOWS\デスクトップ\[統合テスト.xls]6月'!R13C7:R24C27"

と、なりました。
そして、
統合のメイン処理のところに、これを直接入れてみたら、

pr_ws.Range(pr_strSaki).Consolidate sources:=Array("'C:\WINDOWS\デスクトップ\[統合テスト.xls]4月'!R13C7:R24C27", "'C:\WINDOWS\デスクトップ\[統合テスト.xls]5月'!R13C7:R24C27", "'C:\WINDOWS\デスクトップ\[統合テスト.xls]6月'!R13C7:R24C27"), Function:=xlSum

正常に動きました。
なので、引数の文字列は正しいと思うんですが・・・何故、配列変数だとダメなんでしょう?
前回と同じく、「ファイルが開けません」のメッセージが、3回(4月、5月、6月分)出ます。

ichinoseさんに

'==============================================
>>      For i = 0 To .ListCount - 1
>>        strTougou = strTougou & """'" & ActiveWorkbook.Path & "\[" & ActiveWorkbook.Name & "]" & .List(i) & "'!" & pr_strAddress & ""","
>>      Next i

よくみると↑この文字列の連結も気になりますねえ・・・。
""で文字列内にダブルコーテションが入っていますが、確認してみて下さい。
'==============================================
とのアドバイスを頂いたのも、恥ずかしながらよくわかんないです。
だって、マクロの記録で生成したコードにもダブルコーテーション入ってるんですもの〜


またもや、アホなことをしてるんかも・・・
どうぞ、再びアドバイスお願いいたしますm(__)m  

0 hits

【24845】「統合」の「統合元」を変数で指定するとエラーが? つん 05/5/11(水) 16:27 質問
【24851】Re:「統合」の「統合元」を変数で指定する... Jaka 05/5/11(水) 17:28 発言
【24853】Re:「統合」の「統合元」を変数で指定する... ichinose 05/5/11(水) 17:49 発言
【24856】Re:「統合」の「統合元」を変数で指定する... ichinose 05/5/11(水) 18:08 発言
【24857】Re:「統合」の「統合元」を変数で指定する... Kein 05/5/11(水) 18:24 発言
【24860】アホなことしてたのわかりました(>_<) つん 05/5/11(水) 20:05 発言
【24914】Re:アホなことしてたのわかりました(>_... Jaka 05/5/13(金) 15:26 発言
【24918】試行錯誤中です〜 つん 05/5/13(金) 19:23 発言
【24999】再びSOSです! つん 05/5/17(火) 13:22 質問
【25000】Re:再びSOSです! ウッシ 05/5/17(火) 14:29 回答
【25021】やっぱりアホでした・・・ つん 05/5/18(水) 9:38 お礼
【25020】Re:再びSOSです! Jaka 05/5/18(水) 9:36 発言
【25023】そのやり方は思いつきませんでした! つん 05/5/18(水) 9:44 発言
【25029】出来ました(^o^)ノ つん 05/5/18(水) 12:16 お礼

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