Access.2007.VBA.Bibl..

strContactName = _ Nz(lst.Column(1, varItem)) strCompanyName = _ Nz(lst.Column(7, varItem)) strNameTitleCompany = _ Nz(lst.Colum ...

Check for a previously saved document in the documents folder, and append an incremented number to the save name if one is found ...

Save the newly created merge document: .ActiveDocument.SaveAs strSaveNamePath Close the master merge document: .Documents(strDoc ...

J ust as you might want to export Access data to Word documents to take advantage of their superior formatting and transportabil ...

Simply Exporting Access Data to Excel.............................................................................. Just as in e ...

FIGURE 7.2 The options when exporting a table to an Excel worksheet. FIGURE 7.3 Excel worksheets exported with and without check ...

The Excel button on the Ribbon (with or without the layout and formatting preserved) is a useful option when you need to create ...

FIGURE 7.4 An Access table exported to an Excel 97-2003 worksheet. The Excel Object Model ...................................... ...

Create and open a new, blank workbook: bks.Add Make the workbook visible: appExcel.Application.Visible = True ErrorHandlerExit: ...

FIGURE 7.5 Three workbooks in the Excel window. To open a specific saved workbook, use a procedure like the one listed next, whi ...

sht.Activate appExcel.Application.Visible = True ErrorHandlerExit: Exit Sub ErrorHandler: If Err = 429 Then Excel is not running ...

If Excel is not running, the workbook will open in a new Excel window. As with exporting Access data to Word, when writing Autom ...

Check for the template in the selected template folder, and exit if not found: strTestFile = Nz(Dir(strTemplateFileAndPath)) Deb ...

Write Access data from a record directly to cells in the worksheet: rngStart.Activate rngStart.Value = Nz(![ContactID]) Set rng ...

Get the save name from workbook’s Title property: Set prps = _ appExcel.ActiveWorkbook.BuiltinDocumentProperties strSaveName = s ...

When all the contacts have been exported to the worksheet, a save name is constructed from the template’s Title property and the ...

Dim sht As Excel.Worksheet Dim wkb As Excel.Workbook Dim rng As Excel.Range Dim strTable As String Dim strRange As String Dim st ...

Apply the Calibri 9 pt font to the entire worksheet: .Range(“A:F”).Font.Name = “Calibri” .Range(“A:F”).Font.Size = 9 Apply hairl ...

.Range(“D:D”).ColumnWidth = 20 .Range(“E:E”).ColumnWidth = 15 .Range(“F:F”).ColumnWidth = 20 Insert blank rows at top of workshe ...

.Range(“A2:F2”).VerticalAlignment = xlBottom .Range(“A2:F2”).WrapText = False .Range(“A2:F2”).Orientation = 0 .Range(“A2:F2”).Sh ...