Tenho um código vba para exporta para exel que funciona na perfeição mas gostaria de adaptar uma vez que o exel tem várias páginas.
Queria adaptar para exportar para folha especifica consoante a introdução de texto em um campo.
Ou seja, se no campo "mesregisto" colocar Janeiro é exportado para o separador janeiro do exel, se colocar Fevereiro exporta para o separador fevereiro e assim sucessivamente.
Acho que deve ser alterado aqui mas tenho duvidas:
Private Sub Comando458_Click()
If Me.mesregisto = "Janeiro" Then
DoCmd.OpenForm "AGerar", acNormal
e aqui:
Set oSheet = oBook.Worksheets(1)
O código é:
Private Sub Comando458_Click()
DoCmd.OpenForm "AGerar", acNormal
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
On Error Resume Next
' If ArquivoAberto(Application.CurrentProject.Path & "\FormuláriosAuto\mapa262.xls") = True Then
' MsgBox "Ficheiro está aberto.", vbInformation, ""
' Exit Sub
' End If
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.workbooks.Open(Application.CurrentProject.Path & "\FormuláriosAuto\Mod._222_Inqueritos_e_Autos.xls")
oExcel.Visible = False
Set oSheet = oBook.Worksheets(1)
oSheet.Range("L11").Value = Forms!Mapa222!CaixaCombinação265
oSheet.Range("N11").Value = Forms!Mapa222!CaixaCombinação266
oSheet.Range("B39").Value = "Data: " & Forms!Mapa222!Texto267
oSheet.Range("C24").Value = Forms!Mapa222!Texto250
oSheet.Range("D24").Value = Forms!Mapa222!Texto251
oSheet.Range("E24").Value = Forms!Mapa222!Texto252
oSheet.Range("F24").Value = Forms!Mapa222!Texto253
oSheet.Range("G24").Value = Forms!Mapa222!Texto254
oSheet.Range("H24").Value = Forms!Mapa222!Texto255
oSheet.Range("I24").Value = Forms!Mapa222!Texto256
oSheet.Range("J24").Value = Forms!Mapa222!Texto257
oSheet.Range("K24").Value = Forms!Mapa222!Texto258
oSheet.Range("L24").Value = Forms!Mapa222!Texto259
oSheet.Range("M24").Value = Forms!Mapa222!Texto261
oSheet.Range("N24").Value = Forms!Mapa222!Texto262
oSheet.Range("O24").Value = Forms!Mapa222!Texto263
oSheet.Range("C32").Value = Forms!Mapa222!Texto270
oSheet.Range("D32").Value = Forms!Mapa222!Texto271
oSheet.Range("E32").Value = Forms!Mapa222!Texto272
oSheet.Range("F32").Value = Forms!Mapa222!Texto273
oSheet.Range("G32").Value = Forms!Mapa222!Texto274
oSheet.Range("H32").Value = Forms!Mapa222!Texto275
oSheet.Range("I32").Value = Forms!Mapa222!Texto276
oSheet.Range("J32").Value = Forms!Mapa222!Texto277
oSheet.Range("K32").Value = Forms!Mapa222!Texto278
oSheet.Range("L32").Value = Forms!Mapa222!Texto279
oSheet.Range("M32").Value = Forms!Mapa222!Texto280
oSheet.Range("N32").Value = Forms!Mapa222!Texto281
oSheet.Range("O32").Value = Forms!Mapa222!Texto282
oBook.SaveAs CurrentProject.Path & "\MAPAS FIM MÊS\Mod._222_Inqueritos_e_Autos.xls"
oBook.Close
oExcel.Quit
MsgBox "Exportação completa.", vbInformation
End Sub
Queria adaptar para exportar para folha especifica consoante a introdução de texto em um campo.
Ou seja, se no campo "mesregisto" colocar Janeiro é exportado para o separador janeiro do exel, se colocar Fevereiro exporta para o separador fevereiro e assim sucessivamente.
Acho que deve ser alterado aqui mas tenho duvidas:
Private Sub Comando458_Click()
If Me.mesregisto = "Janeiro" Then
DoCmd.OpenForm "AGerar", acNormal
e aqui:
Set oSheet = oBook.Worksheets(1)
O código é:
Private Sub Comando458_Click()
DoCmd.OpenForm "AGerar", acNormal
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
On Error Resume Next
' If ArquivoAberto(Application.CurrentProject.Path & "\FormuláriosAuto\mapa262.xls") = True Then
' MsgBox "Ficheiro está aberto.", vbInformation, ""
' Exit Sub
' End If
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.workbooks.Open(Application.CurrentProject.Path & "\FormuláriosAuto\Mod._222_Inqueritos_e_Autos.xls")
oExcel.Visible = False
Set oSheet = oBook.Worksheets(1)
oSheet.Range("L11").Value = Forms!Mapa222!CaixaCombinação265
oSheet.Range("N11").Value = Forms!Mapa222!CaixaCombinação266
oSheet.Range("B39").Value = "Data: " & Forms!Mapa222!Texto267
oSheet.Range("C24").Value = Forms!Mapa222!Texto250
oSheet.Range("D24").Value = Forms!Mapa222!Texto251
oSheet.Range("E24").Value = Forms!Mapa222!Texto252
oSheet.Range("F24").Value = Forms!Mapa222!Texto253
oSheet.Range("G24").Value = Forms!Mapa222!Texto254
oSheet.Range("H24").Value = Forms!Mapa222!Texto255
oSheet.Range("I24").Value = Forms!Mapa222!Texto256
oSheet.Range("J24").Value = Forms!Mapa222!Texto257
oSheet.Range("K24").Value = Forms!Mapa222!Texto258
oSheet.Range("L24").Value = Forms!Mapa222!Texto259
oSheet.Range("M24").Value = Forms!Mapa222!Texto261
oSheet.Range("N24").Value = Forms!Mapa222!Texto262
oSheet.Range("O24").Value = Forms!Mapa222!Texto263
oSheet.Range("C32").Value = Forms!Mapa222!Texto270
oSheet.Range("D32").Value = Forms!Mapa222!Texto271
oSheet.Range("E32").Value = Forms!Mapa222!Texto272
oSheet.Range("F32").Value = Forms!Mapa222!Texto273
oSheet.Range("G32").Value = Forms!Mapa222!Texto274
oSheet.Range("H32").Value = Forms!Mapa222!Texto275
oSheet.Range("I32").Value = Forms!Mapa222!Texto276
oSheet.Range("J32").Value = Forms!Mapa222!Texto277
oSheet.Range("K32").Value = Forms!Mapa222!Texto278
oSheet.Range("L32").Value = Forms!Mapa222!Texto279
oSheet.Range("M32").Value = Forms!Mapa222!Texto280
oSheet.Range("N32").Value = Forms!Mapa222!Texto281
oSheet.Range("O32").Value = Forms!Mapa222!Texto282
oBook.SaveAs CurrentProject.Path & "\MAPAS FIM MÊS\Mod._222_Inqueritos_e_Autos.xls"
oBook.Close
oExcel.Quit
MsgBox "Exportação completa.", vbInformation
End Sub