Excel VBA質問箱 IV

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

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


71373 / 76732 ←次へ | 前へ→

【9854】Re:BOOK間で値のコピーを繰り返しって?
お礼  みい  - 03/12/19(金) 11:44 -

引用なし
パスワード
   INAさん、ご回答ありがとうございます。
勉強不足でわからない事だらけなのですが、
さらに詳しく教えてください。

>Dim i As long
>
>If Cells(i,2).Value = "" Then
> Msgbox "B列は" & i & " 行目で空白になりました。"
> Exit Sub
>Else
> '処理
>End if
自分はDO LOOPを使って繰り返しするつもりでしたが、ちょっと試してみます。
DO LOOPを使って"B列が空白になるまでBOOK1.xlsのA列に順番にコピーしなさい。”という感じの書式にしたいのですが、この場合はどのような書式になるのでしょうか?

>>2:opentextで開くデータのファイル名は*.lst
>>(今回はho.lstというBOOKになりましたが、
>>いつも*部分ファイル名は異なるものを扱いたい。)
>その都度、ファイルをユーザーが指定するということであれば、
>GetOpenFilename メソッド
>が使えると思います。
とりあえずは下記書式にしてみました。
  Dim FileN As String
  FileN = Application.GetOpenFilename("リストファイル(*.lst),*.lst")
If FileN = "False" Then
  End
End If
  Workbooks.OpenText Filename:=FileN, StartRow:=34, DataType _
    :=xlDelimited, TextQualifier:=xlNone, ConsecutiveDelimiter:=True, Tab:= True, Semicolon:=False, Comma:=False, Space:=True, Other:=True, _
    OtherChar:="|", FieldInfo:=Array(Array(1, 9), Array(2, 1), Array(3, 1), Array(4, 9), Array(5, 9), Array(6, 9), Array(7, 9), Array(8, 9))

現状はこれでリストのファイルは新しいBOOKになって開かれるのですが、
このあと”開いたBOOKのB列をもともと開いているBOOKのA列に順序良くコピーする”
という事を行ないたいのですが、どの様にすれば良いのでしょうか?


順番的には
”テキストファイルを開く”(質問項目2)
”開いたBOOK2のB列を空白になるまで、もともと開いているBOOK1のA列に順番にコピー。”(質問項目1)
”コピー元であるBOOK2は閉じる。”(質問項目4)
としたいです。
質問の順番が悪く、判りにくい形になってしまい申し訳ありませんでした。
ご指導の程、宜しくお願い致します。
1 hits

【9849】BOOK間で値のコピーを繰り返しって? みい 03/12/18(木) 20:02 質問
【9852】Re:BOOK間で値のコピーを繰り返しって? INA 03/12/19(金) 9:25 回答
【9854】Re:BOOK間で値のコピーを繰り返しって? みい 03/12/19(金) 11:44 お礼
【9857】Re:BOOK間で値のコピーを繰り返しって? INA 03/12/19(金) 13:25 回答
【9860】Re:BOOK間で値のコピーを繰り返しって? みい 03/12/19(金) 14:25 質問
【9865】Re:BOOK間で値のコピーを繰り返しって? Jaka 03/12/19(金) 15:26 回答
【9867】Re:BOOK間で値のコピーを繰り返しって? INA 03/12/19(金) 15:31 回答
【9869】Re:BOOK間で値のコピーを繰り返しって? みい 03/12/19(金) 15:38 お礼

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