Excel VBA質問箱 IV

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

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


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

53148 / 76732

←次へ　｜　前へ→


	【28403】Re:メモリ使用量

小僧 - 05/9/5(月) 17:39 -


	引用なし

	パスワード

▼EXCEL_VBA中の下さん：
こんにちは。

とりあえず冒頭の部分だけ…

>　　Sheets("MAKE_DATA").Activate
>　　ActiveSheet.Range("A1:IV65535").Select
>　　Selection.Clear
>　　Sheets("WORK").Activate
>　　ActiveSheet.Range("A1:IV65535").Select
>　　Selection.Clear
>　　Sheets("設定").Activate
>　　IN_DATA_SHEET_NM = ActiveSheet.Range("C2")
>　　OT_Folder_NM = ActiveSheet.Range("C3")
>　　If Right(OT_Folder_NM, 1) <> "\" Then
>　　　　OT_Folder_NM = OT_Folder_NM & "\"
>　　End If
>　　OT_File_NM = ActiveSheet.Range("C4")
>
　　Sheets("MAKE_DATA").Cells.ClearContents
　　Sheets("WORK").Cells.ClearContents
　　　　
　　With Sheets("設定")
　　　　IN_DATA_SHEET_NM = .Range("C2")
　　　　OT_Folder_NM = .Range("C3")
　　　　OT_File_NM = .Range("C4")
　
　　　　If Right(OT_Folder_NM, 1) <> "\" Then
　　　　　　OT_Folder_NM = OT_Folder_NM & "\"
　　　　End If
　　End With

「Select」「Activate」等の処理は重くなる…と聞いた気がします。
省略できるのであれば、できるだけ使わない方が良いかと重います。

ADO を呼び出しているのである程度時間が掛かってしまう事もありますが、
シート1枚をコピーして、CSV に Save している所も
もうちょっと簡潔にできると思われます。

※　識者の方、よろしくお願いします。

0 hits

▼

【28395】メモリ使用量 EXCEL_VBA中の下 05/9/5(月) 14:34