Excel VBA質問箱 IV

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

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


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

71362 / 76732

←次へ　｜　前へ→


	【9865】Re:BOOK間で値のコピーを繰り返しって？

Jaka - 03/12/19(金) 15:26 -


	引用なし

	パスワード

これだとどうですか？
遅いかもしんないけど。

Dim FileN As String, AcShn As String, Cbn As String, CpBn As String
Dim BEr As Long
FileN = Application.GetOpenFilename("リストファイル(*.lst),*.lst")
If FileN = "False" Then
　 End
End If
AcShn = ActiveSheet.Name
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))
Cbn = Dir(FileN)
ThisWorkbook.Activate
CpBn = Left(Cbn, Len(Cbn) - 4)
BEr = Workbooks(Cbn).Sheets(CpBn).Range("B1").End(xlDown).Row
ThisWorkbook.Sheets(AcShn).Range("A1:A" & BEr).Value = Workbooks(Cbn).Sheets(CpBn).Range("B1:B" & BEr).Value

1 hits

▼

【9849】BOOK間で値のコピーを繰り返しって？ みい 03/12/18(木) 20:02