MaximoAccess

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

Obrigado

Administração do MaximoAccess

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 100%

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

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

    Mensagem  toyebom em 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 100%

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

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

    Mensagem  toyebom em 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 100%

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

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

    Mensagem  toyebom em 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.

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 24/7/2019, 08:11