Olá a todos.
Procurei nos tópicos mas não encontrei o que eu busco.
Atualmente tenho no Access 2010 uma base e ao exportar a mesma gostaria que ela saísse com as colunas alinhadas, cabeçalho em negrito e também trocar a cor da fonte.
Não tenho nenhuma noção de como realizar no Access essa formatação.
Poderiam me ajudar no caminho das pedras?
Código da sub do botão que exporta:
Procurei nos tópicos mas não encontrei o que eu busco.
Atualmente tenho no Access 2010 uma base e ao exportar a mesma gostaria que ela saísse com as colunas alinhadas, cabeçalho em negrito e também trocar a cor da fonte.
Não tenho nenhuma noção de como realizar no Access essa formatação.
Poderiam me ajudar no caminho das pedras?
Código da sub do botão que exporta:
- Código:
Sub EXP_FAT()
Dim strConsulta, strNomePlanilha As Variant
DoCmd.SetWarnings False
strConsulta = "Q_989603000_CCUSTO"
strNomePlanilha = "\\BRSAO11FP03\Temp\989603000_ONE_RATEIO.xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePlanilha
strConsulta = "Q_989603000_GERAL"
strNomePlanilha = "\\BRSAO11FP03\Temp\989603000_ONE_RATEIO.xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePlanilha
strConsulta = "Q_989595000_CCUSTO"
strNomePlanilha = "\\BRSAO11FP03\Temp\989595000_AMIL_RATEIO.xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePlanilha
strConsulta = "Q_989595000_GERAL"
strNomePlanilha = "\\BRSAO11FP03\Temp\989595000_AMIL_RATEIO.xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePlanilha
strConsulta = "Q_989595001_CCUSTO"
strNomePlanilha = "\\BRSAO11FP03\Temp\989595001_AMIL_RATEIO.xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePlanilha
strConsulta = "Q_989595001_GERAL"
strNomePlanilha = "\\BRSAO11FP03\Temp\989595001_AMIL_RATEIO.xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePlanilha
strConsulta = "Q_989595002_CCUSTO"
strNomePlanilha = "\\BRSAO11FP03\Temp\989595002_AMIL_RATEIO.xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePlanilha
strConsulta = "Q_989595002_GERAL"
strNomePlanilha = "\\BRSAO11FP03\Temp\989595002_AMIL_RATEIO.xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePlanilha
strConsulta = "Q_989595004_CCUSTO"
strNomePlanilha = "\\BRSAO11FP03\Temp\989595004_AMIL_RATEIO.xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePlanilha
strConsulta = "Q_989595004_GERAL"
strNomePlanilha = "\\BRSAO11FP03\Temp\989595004_AMIL_RATEIO.xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePlanilha
strConsulta = "Q_989595005_CCUSTO"
strNomePlanilha = "\\BRSAO11FP03\Temp\989595005_AMIL_RATEIO.xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePlanilha
strConsulta = "Q_989595005_GERAL"
strNomePlanilha = "\\BRSAO11FP03\Temp\989595005_AMIL_RATEIO.xls"
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePlanilha
MsgBox "Arquivos exportados com sucesso em \\BRSAO11FP03\Temp"
End Sub