Excel.workbooks.add is to create new Workbook with template.
Syntax : expression.Add (Template) , Returns : New Workbooks with template
Refer previous post for more details Here.
Below Example is to Create New Workbook with Header:
VBA Vode:
Option Explicit
Sub Examples_WorkBookAdd_WithHeader()
Dim MstWB As Workbook
Dim SumWs As Worksheet
Dim StrHdr As String
Dim j As Integer
Set MstWB = Workbooks.Add(1)
Set SumWs = MstWB.Sheets(1)
SumWs.Name = "Summary"
StrHdr = "No.,Date,Code,Stock Name,Open,Close,Qty"
For j = LBound(Split(StrHdr, ",")) To UBound(Split(StrHdr, ","))
SumWs.Cells(1, j + 1) = Split(StrHdr, ",")(j)
Next j
'You May Include any code project Here
With SumWs
.Rows(1).Font.Bold = True
.Cells.EntireColumn.AutoFit
End With
Set MstWB = Nothing
Set SumWs = Nothing
StrHdr = ""
End Sub
Sub Examples_WorkBookAdd_WithHeader()
Dim MstWB As Workbook
Dim SumWs As Worksheet
Dim StrHdr As String
Dim j As Integer
Set MstWB = Workbooks.Add(1)
Set SumWs = MstWB.Sheets(1)
SumWs.Name = "Summary"
StrHdr = "No.,Date,Code,Stock Name,Open,Close,Qty"
For j = LBound(Split(StrHdr, ",")) To UBound(Split(StrHdr, ","))
SumWs.Cells(1, j + 1) = Split(StrHdr, ",")(j)
Next j
'You May Include any code project Here
With SumWs
.Rows(1).Font.Bold = True
.Cells.EntireColumn.AutoFit
End With
Set MstWB = Nothing
Set SumWs = Nothing
StrHdr = ""
End Sub
Note: The Example we use Template XlWBATemplate which is equivalent to 1.
Read more about Excel.workbooks.add, excelmacros, macro excel,excel programming, excel vba at below links.
Microsoft Reference-Excel.workbooks.add
Other Reference-Excel.workbooks.add
Leave your comments if you have any request.
Practice makes perfect.
Thank You.
No comments:
Post a Comment