| |
▼γ さん：
ご回答いただき誠にありがとうございます。
ご指摘最もです、省略しすぎてしまい大変申し訳ありません。
下記にコードを記載させていただきます。
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
以上になります。
長すぎて一部省略していますので、まだ不備があるかもしれませんが
何卒ご容赦いただければ幸いです。
以上、よろしくお願いいたします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
