Excel VBA質問箱 IV

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

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


36880 / 76738 ←次へ | 前へ→

【45033】Re:複数の同一形式のブックのセルデータを別のブックシートにまとめたい
質問  yosinobu E-MAIL  - 06/12/10(日) 18:01 -

引用なし
パスワード
   ▼Kein さん:
>>教えていただいた構文を実際の内容に置き換えたのですが、
 うまくいきません。
  どこが、謝っているのでしょうか?
 
  大変申し訳ございませんが、宜しくお願いします。

  全て notfound c列に表示されます。
   
Sub Macro1()
Dim i As Integer
Dim Sh As Worksheet
Dim MyF As String, LkSt As String
Const SFol As String = _
"C:\C:\Documents and Settings\安部 義信\デスクトップ_
\授業料調査集計 \Exl_Files"

Set Sh = Worksheets("集計")
For i = 1 To 94
  MyF = Dir(SFol & "\" & Format(i, "00") & "*.xls")
  With Sh.Range(Sh.Cells(i + 6, 2), Sh.Cells(i + 6, 15))
  
  If MyF = "" Then
  .Cells(2).Value = "File_notfound"
  
  Else
   LkSt = "=" & SFol & "\ [ " & MyF & "] アンケート"
   .Cells(5).Formula = LkSt & "$c$7"
   .Cells(6).Formula = LkSt & "$e$7"
   .Cells(7).Formula = LkSt & "$e$8"
   .Cells(8).Formula = LkSt & "$f$7"
   .Cells(9).Formula = LkSt & "$f$8"
   .Cells(10).Formula = LkSt & "$g$7"
   .Cells(11).Formula = LkSt & "$g$8"
   .Cells(12).Formula = LkSt & "$h$7"
   .Cells(13).Formula = LkSt & "$h$8"
   .Cells(14).Formula = LkSt & "$i$7"
   .Cells(15).Formula = LkSt & "$i$8"
   
   .Value = .Value
   End If
  End With
Next i
Set Sh = Nothing
MsgBox "全てのデータを転記しました", 64
End Sub

0 hits

【44871】複数の同一形式のブックのセルデータを別のブックシートにまとめたい yosinobu 06/12/4(月) 23:16 質問
【44872】Re:複数の同一形式のブックのセルデータを... Kein 06/12/5(火) 1:11 回答
【44900】Re:複数の同一形式のブックのセルデータを... yosinobu 06/12/5(火) 20:35 お礼
【44902】Re:複数の同一形式のブックのセルデータを... Kein 06/12/5(火) 20:57 回答
【44905】Re:複数の同一形式のブックのセルデータを... yosinobu 06/12/5(火) 21:29 お礼
【45016】Re:複数の同一形式のブックのセルデータを... yosinobu 06/12/10(日) 9:47 質問
【45023】Re:複数の同一形式のブックのセルデータを... Kein 06/12/10(日) 14:57 回答
【45027】Re:複数の同一形式のブックのセルデータを... yosinobu 06/12/10(日) 15:54 お礼
【45032】Re:複数の同一形式のブックのセルデータを... Kein 06/12/10(日) 17:03 発言
【45033】Re:複数の同一形式のブックのセルデータを... yosinobu 06/12/10(日) 18:01 質問
【45034】Re:複数の同一形式のブックのセルデータを... かみちゃん 06/12/10(日) 18:09 発言
【45035】Re:複数の同一形式のブックのセルデータを... yosinobu 06/12/10(日) 18:21 質問
【45037】Re:複数の同一形式のブックのセルデータを... かみちゃん 06/12/10(日) 18:40 発言
【45038】Re:複数の同一形式のブックのセルデータを... yosinobu 06/12/10(日) 18:58 質問
【45039】Re:複数の同一形式のブックのセルデータを... かみちゃん 06/12/10(日) 19:04 発言
【45070】Re:複数の同一形式のブックのセルデータを... yosinobu 06/12/11(月) 23:51 回答
【45072】Re:複数の同一形式のブックのセルデータを... かみちゃん 06/12/12(火) 1:52 発言
【45154】Re:複数の同一形式のブックのセルデータを... yosinobu 06/12/13(水) 19:37 お礼
【45043】Re:複数の同一形式のブックのセルデータを... Kein 06/12/10(日) 23:06 回答
【45153】Re:複数の同一形式のブックのセルデータを... yosinobu 06/12/13(水) 19:32 お礼

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