USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Exportar tabela do Access
ATS
OURINHOS
SP - BRASIL
Postada em 11/01/2006 11:57 hs            
Como faço para exportar os registros de uma tabela do Access para um arquivo texto usando tabulações para separar as colunas.
     
PH1959
Pontos: 2843
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
Postada em 11/01/2006 13:06 hs            
vc consegue jogar os registros em uma matriz?
 
     
ATS
OURINHOS
SP - BRASIL
Postada em 11/01/2006 13:36 hs            
Os registros estão em uma tabela do banco de dados, na verdade até consegui exportar os registros para um arquivo texto, só que não sei separar as colunas da tabela por tabulações.
É que este arquivo é enviado para um site e o desenvolvedor do site me pediu para separa-los por tabulações mas não sei o que é isso e como fazer.
TÓPICO EDITADO
   
PH1959
Pontos: 2843
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
Postada em 11/01/2006 13:41 hs            
se vc consegue jogar em uma matriz fica fácil
Dim objExcel As Excel.Application
Dim objWorkbook As Excel.Workbook
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
        "ShellExecuteA" (ByVal HWnd As Long, ByVal lpOperation _
        As String, ByVal lpFile As String, ByVal lpParameters _
        As String, ByVal lpDirectory As String, ByVal nShowCmd _
        As Long) As Long
Private Sub Command1_Click()
Dim i As Long
Dim n As Long
On Error Resume Next
Set objExcel = GetObject(, "Excel.Application")
If Err.Number Then
   Err.Clear
   Set objExcel = CreateObject("Excel.Application")
   If Err.Number Then
      MsgBox "Can't open Excel."
   End If
End If
objExcel.Visible = True
Set objWorkbook = objExcel.Workbooks.Add
AppActivate "FlexGrid To Excel Demo"
For i = 1 To N 'conta o num de itens
for j= 1 to m 'conta as colunas
              objWorkbook.ActiveSheet.Cells(i , n ).Value = suamatriz(i,j)
    Next j
Next i
End Sub
     
ATS
OURINHOS
SP - BRASIL
Postada em 12/01/2006 08:43 hs            
Pelo que entendi você esta exportando para o Excel e o que quero é exportar para um arquivo texto.
     
Daniel
Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 12/01/2006 09:03 hs            
O Exemplo abaixo é do MSDN
Print #1, "Zone 1"; Tab ; "Zone 2"
 
espero que resolva
 

dsmn
     
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página