Excel VBA質問箱 IV

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

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


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

6374 / 76734

←次へ　｜　前へ→


	【75961】Re:新規ブックの保存に時間がかかる

まめ - 14/8/11(月) 18:52 -


	引用なし

	パスワード

▼γ さん：
ご回答いただき誠にありがとうございます。

ご指摘最もです、省略しすぎてしまい大変申し訳ありません。
下記にコードを記載させていただきます。

Dim myBook as String
Dim データ(1 to 10) as String
Dim n as long
Dim bookname as string
Dim myValue as variant
Dim Filepath as string
Dim Savepath as string
Dim Savename as string

'ブックを作成
Workbooks.Add
myBook = ActiveWorkbook.Name

’データ(i)に格納された文字列をペースト
For i = 1 To 10
　　Workbooks(myBook).Sheets(1).Cells(1, i) = データ(i)
Next i

’体裁を整える
Cells.ColumnWidth = 10
With Selection
　　.HorizontalAlignment = xlCenter
End With
ActiveWindow.Zoom = 50
With Range("A1:K1").Interior
　　.ColorIndex = 15
End With
ActiveWindow.DisplayGridlines = False

’項目名、配列をペースト
For n = 1 To 10
　　Workbooks(myBook).Sheets(1).Cells(n + 1, 1) = bookname(n)
　　Workbooks(myBook).Sheets(1).Range(Cells(n + 1, 2), Cells(n + 1, 13)) = myValue(n)
Next n

Filepath = ThisWorkbook.Path & "\"

Savepath = Filepath & "処理\" & Format(Date, "yyyymmdd")
Workbooks(myBook).Close SaveChanges:=True, Filename:=Savepath

以上になります。
長すぎて一部省略していますので、まだ不備があるかもしれませんが
何卒ご容赦いただければ幸いです。

以上、よろしくお願いいたします。

9 hits

▼

【75958】新規ブックの保存に時間がかかる まめ 14/8/11(月) 15:38