Home Page
Articoli
Tips & Tricks
News
Forum
Archivio Forum
Blogs
Sondaggi
Rss
Video
Utenti
Chi Siamo
Contattaci
Username:
Password:
Login
Registrati ora!
Recupera Password
Home Page
Stanze Forum
SQL Server 2000/2005/2008, Express, Access, MySQL, Oracle
Esportare tabelle access in excel da maschera con comando in vb
giovedì 10 settembre 2009 - 12.05
Elenco Threads
Stanze Forum
Aggiungi ai Preferiti
Cerca nel forum
coleale
Profilo
| Newbie
1
messaggi | Data Invio:
gio 10 set 2009 - 12:05
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
Torna su
Stanze Forum
Elenco Threads
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 !