Excel VBA質問箱 IV

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

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


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

60841 / 76738

←次へ　｜　前へ→


	【20530】質問

yukko - 04/12/11(土) 15:43 -


	引用なし

	パスワード

　皆さんこんにちはです。

Sub aｕ読み込み()
'

Dim Sheet1$,
　 Sheet1$ = "0"　　　　　　　'入力先のシ－ト名
　　　
　 Workbooks.Open Filename:="D:\dai\448\Nx\4482.csv"
　　　Range("B1:J150").Select
　　　Selection.Copy
　 Windows("ｃｈｅｃｋ.xls").Activate
　　　Sheets(Sheet1$).Select
　　　Range("A2").Activate
　　
　　　Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
　　　False, Transpose:=False
　　　Range("A3").Select

End Sub

　　以上のマクロをD:\dai\448\Nx\4482.csvのファイルをactiveな状態（ファイルを開かずに）にせずに作業をしたいのですけれどもどうすればいいんでしょうか？
　　
　何か良い方法は、ないでしょうか？

by／yukko

0 hits

▼

【20530】質問 yukko 04/12/11(土) 15:43

≪