Esportare tabelle access in excel da maschera con comando in vb

giovedì 10 settembre 2009 - 12.05

coleale Profilo | Newbie

ciao io ho questo problema: ho un db in access in cui vengono compilate una serie di tabelle. da un comando in una maschera io faccio si che tutte le tabelle mi siano esportate in un file excel con tanti fogli quante sono le tabelle.
ho tre problemi:
1) in alcuni pc non apre excel (nonostante ci sia office)
2) alcuni fogli non sono ordinati come gli altri (nello specifico sono tutti ordinati per patid tranne due che hanno ordinamento "casuale")
3) se ho già fatto una esportazione e ne faccio una seconda alcuni fogli mancano delle prime 32 righe, se cancello l'esportazione precedente e la rifaccio mi funziona tutto ok. potete iutarmi vi pregoooooo!!!

vi posto il codice:

Private Sub BtnExcel_Click()
On Error GoTo Err_BtnExcel_Click

DoCmd.TransferSpreadsheet transfertype:=acExport, _
tablename:="maintbl", _
Filename:="C:\DB PRODIGY 003 MONIA paz 07.xls"

DoCmd.TransferSpreadsheet transfertype:=acExport, _
tablename:="svisit", _
Filename:="C:\DB PRODIGY 003 MONIA paz 07.xls"

DoCmd.TransferSpreadsheet transfertype:=acExport, _
tablename:="pci", _
Filename:="C:\DB PRODIGY 003 MONIA paz 07.xls"


DoCmd.TransferSpreadsheet transfertype:=acExport, _
tablename:="LESIONE2", _
Filename:="C:\DB PRODIGY 003 MONIA paz 07.xls"

Dim appXl As EXCEL.Application
Dim wrkFile As Workbooks

' Set object variables.
Set appXl = New EXCEL.Application
Set wrkFile = appXl.Workbooks

' Open a file.
wrkFile.Open "C:\DB PRODIGY 003 MONIA paz 07.xls"
' Display Excel.
appXl.Visible = True

' Close the object references.
Set wrkFile = Nothing
Set appXl = Nothing


Exit_BtnExcel_Click:
Exit Sub

Err_BtnExcel_Click:
MsgBox Err.Description
Resume Exit_BtnExcel_Click

End Sub[/code][/code][/code]

vi prego aiutooo
ciao ale
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2023
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5