|
▼ゆーあ さん:
コードはよく読んでいませんが、1項目ごとに
・元ブックをActiveにして
・そこの項目をコピーして
・新ブックをアクティブにして
・書き込みセルを選択して
・ペースト
これでは時間がかかるでしょうね。
>データベースファイルのセルセレクトは、順番(1〜50)ですが、
>新規ブックの方は、規則性はあるもののランダムになってます。
これについても、整理してコードを短くすることができますが、その前に
まずは、上記の状態を改善するところから始められてはいかがでしょう。
Sub Sample()
Dim dBK As Workbook
Dim nBK As Workbook
Dim dSh As Worksheet
Dim nSh As Worksheet
Set dBK = Workbooks("●●●●.xls")
Set dSh = dBK.Sheets("Sheet3")
Set nBK = Workbooks("□□□□.xls")
Set nSh = nBK.Sheets("データ抽出")
Application.ScreenUpdating = False 'セル書き込みに伴う画面再描画の抑止(処理時間の短縮化)
nSh.Range("B6").Value = dSh.Range("A1").Value
nSh.Range("C6").Value = dSh.Range("A2").Value
nSh.Range("D6").Value = dSh.Range("A3").Value
'
'
'
End Sub
|
|