Excel VBA質問箱 IV

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

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


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

27861 / 76736

←次へ　｜　前へ→


	【54188】Re:データ取得先のファイルが変更するたびに反映先の行を変更するには？

VBWASURETA - 08/2/28(木) 18:34 -


	引用なし

	パスワード

▼かおりさん：

まず確認ですが、以下のところはシートが変わった時にだけ入りますか？
>MyName = Dir(MyPath & "\*.xls")　'xlsファイルすべてを選択対象に

簡単にするのであれば、変数が保持できる形にすれば大丈夫です。

保持例：

'↓この定義をソースの上に書くと保持され続けます。
Dim MyPath As String
'↓この定義もソースの上に書くと保持され続けます。
Dim lSetRow As Long

Sub Main()
　'最初はMyPath中身がないので条件に入る
　If (MyPath = "") Then
　　lSetRow = 1 '1最初は１行目
　Else'変更の時はMyPath中身があるのでこの条件に入る
　　lSetRow = lSetRow + 2 'シート変更時は２行下げる
　End If
　MyName = Dir(MyPath & "\*.xls")

End Sub

こんな感じでlSetRowをCellsの行番号に入れれば
できると思います。

0 hits

▼

【54176】データ取得先のファイルが変更するたびに反映先の行を変更するには？ かおり 08/2/27(水) 18:01