|
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)
としたいです。
質問の順番が悪く、判りにくい形になってしまい申し訳ありませんでした。
ご指導の程、宜しくお願い致します。
|
|