Excel VBA質問箱 IV

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

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


57940 / 76738 ←次へ | 前へ→

【23532】Re:他のbookに値を書き込む方法
発言  sakura  - 05/3/25(金) 18:00 -

引用なし
パスワード
   ▼Jaka さん:
レスありがとうございます。


>Sub djj()
>  Dim TxSh As Worksheet, Cel As Range, Mat As Variant, ADC As Range
>
>  'ここにファイルA.txtを開くコードが書いてあるとして
>  'つまり、ファイルA.txtがアクティブ
>
>  Set TxSh = ActiveSheet
>  With Workbooks("bookA.xls")
>    For Each Cel In TxSh.Range("B1", TxSh.Range("B65536").End(xlUp))
>      Mat = Application.Match(Cel.Value, .Sheets("果物").Columns(1), 0)
>      If Not IsError(Mat) Then
>        .Sheets("果物").Cells(Mat, 2).Value = Cel.Offset(, 1).Value
>      Else
>        Mat = Application.Match(Cel.Value, .Sheets("野菜").Columns(1), 0)
>        If Not IsError(Mat) Then
>         .Sheets("野菜").Cells(Mat, 2).Value = Cel.Offset(, 1).Value
>        Else
>         Set ADC = .Sheets(Cel.Offset(, -1).Value).Range("A65536").End(xlUp).Offset(1)
>         ADC.Value = Cel.Value
>         ADC.Offset(, 1).Value = Cel.Offset(, 1).Value
>        End If
>      End If
>    Next
>  End With
>  Set TxSh = Nothing
>  Set ADC = Nothing
>End Sub

この場合bookA.xisのディレクトリがないように感じますが・・・

書き込み側のディレクトリも読み込むことができたらいいんですけど・・・

0 hits

【23420】他のbookに値を書き込む方法 sakura 05/3/22(火) 18:01 質問
【23421】Re:他のbookに値を書き込む方法 kazu 05/3/22(火) 18:57 発言
【23459】Re:他のbookに値を書き込む方法 sakura 05/3/24(木) 13:20 質問
【23460】Re:他のbookに値を書き込む方法 sakura 05/3/24(木) 13:42 質問
【23464】Re:他のbookに値を書き込む方法 Jaka 05/3/24(木) 14:25 回答
【23491】Re:他のbookに値を書き込む方法 sakura 05/3/24(木) 17:30 発言
【23492】Re:他のbookに値を書き込む方法 Jaka 05/3/24(木) 17:39 発言
【23501】Re:他のbookに値を書き込む方法 sakura 05/3/24(木) 19:09 発言
【23522】Re:他のbookに値を書き込む方法 Jaka 05/3/25(金) 14:19 回答
【23532】Re:他のbookに値を書き込む方法 sakura 05/3/25(金) 18:00 発言
【23595】Re:他のbookに値を書き込む方法 Jaka 05/3/29(火) 17:06 回答
【23497】Re:他のbookに値を書き込む方法 kazu 05/3/24(木) 18:12 発言
【23502】Re:他のbookに値を書き込む方法 sakura 05/3/24(木) 19:11 発言
【23537】Re:他のbookに値を書き込む方法 sakura 05/3/25(金) 19:07 発言
【23559】Re:他のbookに値を書き込む方法 kazu 05/3/28(月) 12:48 発言
【23797】Re:他のbookに値を書き込む方法 sakura 05/4/4(月) 19:00 質問
【23799】さらにパワーアップ sakura 05/4/4(月) 19:38 発言
【23890】Re:さらにパワーアップ sakura 05/4/6(水) 17:27 お礼

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