MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Exportar para folha expecifica Excel

    toyebom
    toyebom
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1123
    Registrado : 18/07/2012

    [Resolvido]Exportar para folha expecifica Excel Empty [Resolvido]Exportar para folha expecifica Excel

    Mensagem  toyebom 8/3/2019, 00:17

    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


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1123
    Registrado : 18/07/2012

    [Resolvido]Exportar para folha expecifica Excel Empty Exportar para folha expecifica Excel

    Mensagem  toyebom 8/3/2019, 00:39

    Consegui resolver mas fica um código demasiado grande para 12 meses, alguma forma de simplificar???
    Os primeiros 3 meses que criei ficou:

    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")
    If Me.Texto260 = "Janeiro" Then
    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

    End If
    If Me.Texto260 = "Fevereiro" Then
    Set oBook = oExcel.workbooks.Open(Application.CurrentProject.Path & "\MAPAS FIM MÊS\Mod._222_Inqueritos_e_Autos.xls")
    oExcel.Visible = False
    Set oSheet = oBook.Worksheets(2)

    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

    End If
    If Me.Texto260 = "Março" Then
    Set oBook = oExcel.workbooks.Open(Application.CurrentProject.Path & "\MAPAS FIM MÊS\Mod._222_Inqueritos_e_Autos.xls")
    oExcel.Visible = False
    Set oSheet = oBook.Worksheets(3)

    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
    End If
    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


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    toyebom
    toyebom
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1123
    Registrado : 18/07/2012

    [Resolvido]Exportar para folha expecifica Excel Empty Exportar para folha expecifica Excel

    Mensagem  toyebom 18/3/2019, 23:29

    Como não tive ajuda a criar o código de outra forma, dou por resolvido.


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.

      Data/hora atual: 25/7/2021, 03:26