[Resolvido]Exportar para Excel e retirar coluna ID (código), coluna A do Excel

Olá.
Tenho uma parte do código para exportar para Excel de uma caixa de listagem de um formulário pesquisa, conforme a seguir:

Private Sub exporta_lista_Click()

Dim Ok As Integer
Dim entpesquisa_especialidadeTruncado As Integer
Dim cadTítulo$
Dim entCuadroMensaje As Integer
Dim fd As FileDialog
Dim FolderName$
Dim strCaminho$
Dim varNomeFicheiro$

Dim q As QueryDef
Set q = CurrentDb.QueryDefs("Lista")           'Lista é consulta
q.SQL = Me.lista_especialidade.RowSource      'lista_especialidade é caixa de listagem
q.Close
Set q = Nothing

Set fd = Application.FileDialog(msoFileDialogFolderPicker)
 If fd.Show = True Then
   If fd.SelectedItems(1) <> vbNullString Then
       FolderName = fd.SelectedItems(1)
       strCaminho = FolderName

'Lista é consulta
'lista_especialidade é caixa de listagem
'pesquisa_especialidade é caixa de texto para fazer a pesquisa e dá nome ao Excel

'Iniciar a validação ao campo da pesquisa, para o nome do ficheiro excel

If IsNull(Me.pesquisa_especialidade) Or Me.pesquisa_especialidade.Value = "" Then
   varNomeFicheiro = "All"
   Else
   varNomeFicheiro = Me.pesquisa_especialidade
   Call DoCmd.TransferSpreadsheet(TransferType:=acExport, TableName:="Lista", FileName:=strCaminho & "\" & Nz(varNomeFicheiro, "All") & ".xlsx")
    MsgBox "Exportado com sucesso...", vbInformation
   Exit Sub
   Set fd = Nothing
End If

If varNomeFicheiro = "All" Then Call DoCmd.TransferSpreadsheet(TransferType:=acExport, TableName:="Lista", FileName:=strCaminho & "\" & Nz(varNomeFicheiro, "All") & ".xlsx")
End If

MsgBox "Exportado com sucesso...", vbInformation
End If

Como exportar para Excel sem a coluna A (coluna ID ou código), apenas as colunas B:Q?

Olá, não pode tirar essa coluna da consulta "Lista"?
Abraço

Eliminei e criei nova Lista. Escolhi todos os campos exceto campo código.
A coluna código não desaparece
Ao fazer caixa de listagem, ocultei código , fazendo largura = zero.
Como elimino a coluna código no Excel?

Olá Pedro, teste assim:

Crie uma consulta com os campos pretendidos para exportar para o Excel com o nome: qyrLista
Depois será alterar no código, ficando assim:

Código:

Private Sub exporta_lista_Click()

Dim Ok As Integer
Dim entpesquisa_especialidadeTruncado As Integer
Dim cadTítulo$
Dim entCuadroMensaje As Integer
Dim fd As FileDialog
Dim FolderName$
Dim strCaminho$
Dim varNomeFicheiro$

Dim q As QueryDef
Set q = CurrentDb.QueryDefs("qyrLista")          'Lista é consulta
q.SQL = Me.lista_especialidade.RowSource      'lista_especialidade é caixa de listagem
q.Close
Set q = Nothing

Set fd = Application.FileDialog(msoFileDialogFolderPicker)
 If fd.Show = True Then
  If fd.SelectedItems(1) <> vbNullString Then
      FolderName = fd.SelectedItems(1)
      strCaminho = FolderName

'Lista é consulta
'lista_especialidade é caixa de listagem
'pesquisa_especialidade é caixa de texto para fazer a pesquisa e dá nome ao Excel

'Iniciar a validação ao campo da pesquisa, para o nome do ficheiro excel

If IsNull(Me.pesquisa_especialidade) Or Me.pesquisa_especialidade.Value = "" Then
  varNomeFicheiro = "All"
  Else
  varNomeFicheiro = Me.pesquisa_especialidade
  Call DoCmd.TransferSpreadsheet(TransferType:=acExport, TableName:="qyrLista", FileName:=strCaminho & "\" & Nz(varNomeFicheiro, "All") & ".xlsx")
    MsgBox "Exportado com sucesso...", vbInformation
  Exit Sub
  Set fd = Nothing
End If

If varNomeFicheiro = "All" Then Call DoCmd.TransferSpreadsheet(TransferType:=acExport, TableName:="Lista", FileName:=strCaminho & "\" & Nz(varNomeFicheiro, "All") & ".xlsx")
End If

MsgBox "Exportado com sucesso...", vbInformation
End If


Abraço

Deu certo, eliminei consulta lista  e adicionei consulta qyrLista , sem campo código.
Alterei VBA segundo acima e também em
If varNomeFicheiro = "All" Then Call DoCmd.TransferSpreadsheet(TransferType:=acExport, TableName:="qyrLista", FileName:=strCaminho & "\" & Nz(varNomeFicheiro, "All") & ".xlsx")
End If
Consegue-me explicar a diferença?
Obrigado pela ajuda.

Olá ,
Não tenho a certeza, mas acho que você tinha uma tabela e consulta com o mesmo nome "Lista".

Talvez seja bom usar nomenclatura:

tblXXX - Tabela
qyrXXX - Consulta
frmXXX - Formulario
...
Mais informação:
https://www.maximoaccess.com/t1055-convencoes-de-nomenclatura-para-o-microsoft-access

Abraço

Um tópico com a minha BD:
https://www.maximoaccess.com/t25905-resolvidoerros-em-32-e-64-bits

Olá Pedro, se a dúvida ficou sanada, deve dar o tópico como resolvido.
Quanto ao link da última mensagem, não compreendi.
Abraço

Estava a mostar a BD.
Obrigado
Abraço .

Ok, irei ver quando estiver no pc.
Caso tenha alguma opinião, comento no tópico.
Abraço

Na caixa de listagem, quando selecionada uma linha, deixou de mostrar o contacto

Olá, não sei se compreendi bem, mas:
Use Lista (como tinha antes ) para a caixa de listagem.
Use QyrLista para exportar para excel
aBRAÇO

Eliminei Lista.
Vi se pesquisa estava a funcionar bem.
Depois fiz a consulta Lista pela tabela , sem campo código.
Verifiquei se não aparecia campo código, depois de gravar.
Depois aparece, sempre igual à origem da linha da caixa de listagem que é a tabela, ou seja com o código.

http://dl.dropboxusercontent.com/u/771097/base%20de%20dados_v2%20-%2032%2664bits%20%281%29_OLD.zip

Olá Pedro, aqui só tenho Access 2007, não dá para verificar.
Entretanto caso pretenda que o seu projecto funcione a 32 e 64 bit, também deve rever código abaixo


Deve fazer como tem no modulo 32&64bit
Abraço

Ok, obrigado.
No meu está bem, é 64 bits.
Abraço.

E eu já lhe tinha alterado isso, para que os usuários que o estão a ajudar não terem erros ao depurar;

Código:

Option Compare Database
Option Explicit
'Autor de la función base: Indeterminado
'Declaraciones

#If VBA7 Then
'64 bits que requer o ptrSafe em todas as api`s
Private Declare PtrSafe Function SetWindowLong Lib "User32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare PtrSafe Function GetWindowLong Lib "User32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare PtrSafe Function SetLayeredWindowAttributes Lib "User32" _
(ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

#Else
'32 bits que não necessita do Ptrsafe
Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" _
(ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetLayeredWindowAttributes Lib "User32" _
(ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
#End If

'Constantes
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_LAYERED = &H80000
Private Const LWA_ALPHA = &H2

A questão é ao Exportar para Excel, retirar coluna ID (código), coluna A do Excel.
32 e 64 bits já estava resolvido (se calhar foi uma versão old, desculpem).

Como já tinha dito no seu tópico anterior, as colunas das combobox`s começam por zero, e a coluna zero é o código da especialidade.

Para resolver o que pretende, de forma simples;

1º Abra a sua consulta "Lista", em modo SQL

2º Delete tudo o que estiver lá escrito;

3º Substitua por este, teste ao exportar e retorne;

Código:

SELECT CONTACTOS.CÓDIGO, CONTACTOS.ESPECIALIDADE, CONTACTOS.EMPRESA, CONTACTOS.ATIVIDADE, CONTACTOS.TELEFONE, CONTACTOS.FAX, CONTACTOS.TELEMÓVEL, CONTACTOS.EMAIL, CONTACTOS.CONTACTO, CONTACTOS.FUNÇÃO, CONTACTOS.OBS, CONTACTOS.ENDEREÇO, CONTACTOS.CÓDIGO_POSTAL, CONTACTOS.LOCALIDADE, CONTACTOS.PAÍS, CONTACTOS.WEBSITE, CONTACTOS.RESPOSTA
FROM CONTACTOS
WHERE (((CONTACTOS.ESPECIALIDADE) Like "*" & TodosAcentos([Forms]![PESQUISA].[pesquisa_especialidade] & "*")) AND ((CONTACTOS.EMPRESA) Like "*" & TodosAcentos([Forms]![PESQUISA].[pesquisa_firma] & "*")) AND ((CONTACTOS.LOCALIDADE) Like "*" & TodosAcentos([Forms]![PESQUISA].[pesquisa_localidade] & "*")) AND ((CONTACTOS.PAÍS) Like "*" & TodosAcentos([Forms]![PESQUISA].[pesquisa_país] & "*")))
ORDER BY CONTACTOS.ESPECIALIDADE, CONTACTOS.EMPRESA, CONTACTOS.LOCALIDADE, CONTACTOS.PAÍS;


Não deu.

O que não deu ?

Excel sem a coluna código, não deu.

http://dl.dropboxusercontent.com/u/771097/base%20de%20dados%20CONTACTOS%20-%2032%2664bits%20-%20v2_OLD_III.zip

Olá.
Apliquei no
ANEXOS
base de dados CONTACTOS - 32&64bits - v2.zip
não consegui ainda ....

Rapaz, a questão é simples.

Se você não quer o campo código, entre no sql da lista e retire-o.

É isto ?

Olá.
Apliquei no
ANEXOS
base de dados CONTACTOS - 32&64bits - v2.zip
não consegui ainda ....

Mensagem Nº22, não exporta o campo que pretende, testou nesse exemplo ?

No seu exemplo está bem, no meu, mesmo retirando em SQL da lista, volta a aparecer o código....
elimino o código e volta a reaparecer....

Então tem de chekar os dois bancos e ver as diferenças.

Se funciona no que enviei, está resolvido.

ok.

Vi o SQL, vista de estrutura, mostrar, critérios, propriedades de lista, código pesquisa.
Após pedir retirar código, o access não assimila.
Aparece sempre no excel.
Pode ver se consegue no access da mensagem Nº21, se faz favor?

Feito no banco da msg Nº 21

Tem tambem o excel que acabei de exportar;

dl.dropboxusercontent.com/u/771097/base%20de%20dados%20CONTACTOS%20-%2032%2664bits%20-%20v2.zip

No formulário PESQUISA, ao selecionar 1, devia abrir o formulário CONTACTOS só com o contacto selecionado, agora ficou sem preenchimento.
Dá para exportar em Excel selecionando as colunas que se quer exportar , ou seja, todas exceto CÓDIGO, e neste código VB em particular?
Desculpe senão me expliquei bem.
Agradeço muito pela ajuda.

Olá a todos.
Pedro, como ficou a situação?
Abraço a todos

Olá.
Se retirar da lista o código , não posso selecionar (antes no formulário PESQUISA) agora no formulário FILTRAR as linhas EMPRESA para abrir o contacto ou editá-lo individualmente, para explicar bem anexo a BD.
Abraço

Olá Pedro, deveria explicar-se melhor.

1) então exportar está tudo Ok, é isso?
2) Se a questão é a falta do código, inseri no final , assim não vai para o excel na exportação.


Segue meu teste.
Abraço

Olá.
Exportar estava bem, mas desde que tirei * no filtro ele exporta ainda não estritamente, ou seja, não como nome completo ou campo inteiro ....

Bom Pedro, vai ter que arrumar as ideias do que pretende.
Você mistura abrir o form da empresa com exportação.
Sou da opinião que deve colocar como o JPaulo postou para a exportação.

Se ficar a funcionar, deve dar o tópico como resolvido e abrir um novo tópico apenas com a questão da empresa (falta do código).
É a minha opinião.
Abraço

Olá.
Como fui mudando a BD, agora fiz conforme JPaulo tinha feito e ficou bem, ou seja, fui à consulta lista em modo estrutura e retirei o código e parece que agora está tudo bem.
Obrigado pela ajuda ahteixeira e JPaulo, desculpem alguma coisa.

Olá Pedro, obrigado pelo retorno.
Por vezes quando temos vários problemas, deveremos separa e resolver um a um.
Já sabemos que por vezes interfere com o que já estava bem.
Qualquer coisa estamos cá.
Abraço a todos