Newsgroup: it.comp.appl.access
Titolo: Aiuto Problema File generati su Floppy

Ho fatto un Programmino in access 2000, che  genera un file attraverso una
macro, prendendo dei dati da una query, e tramite una macro genera un file
excel che io ho chiamato flusso.
 ho cretao una tabella  con inserito un campo che si chiama CODICE, è la
tabella ha un solo record, Vorrei scrivere una funzione-un codice che mi
consenta di generarmi il file excel in base al dato contenuto nel campo
codice, mi spiego meglio, se il campo codice ha il valore 280 vorrei che il
file generato si chimasse 280.xls. e dovrei poi scrivere una riga di codice
per il programma che a sua volta mi carica questi dati, ora carica i dati
del file flusso.XLS, MA VORREI CHE FOSSE IN GRADO DI CARICARMI TUTTI I DATI
DEI FILE CON ESTENSIONE XLS, PER ESEMPIO COME IN DOS *.XLS.
grazie a chi potra darmi un aiuto.
Grazie Carlo
carl...@tiscalinet.it

 ha scritto nel messaggio
news:8nn2bc$jhf$1...@nslave1.tin.it...

Nell'help trovi il metodo TransferSpreadsheet che utilizzi sia per export
che per l'import. Per l'import di tutti i file xls non ti basterà una riga
di codice. Ti servirà sapere se nella directory che tu hai predefinito (non
necessariamente) siano presenti i file (.xls) e quanti sono, questo per
evitare errori ed effettuare il ciclo per l'importazione dei dati.
Per esempio:
per l'esportazione della tabella in un file excel nell'evento clic di un
bottone:
'------------------------
Private Sub bttnEsportaXls_Click()
Dim xPath As String
xPath = "c:\documenti\"
If Not IsNull(Me.Codice) Then
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97,
NomeTabella, xPath & Me.Codice & ".xls"
End If
End Sub
'------------------------
nell'evento "su apertura" inserire questa routine che riempie una listbox
con i nomi dei file trovati nella directory indicata:
'------------------------
Private Sub Form_Open(Cancel As Integer)
Dim xPath As String, xFile As String, xElenco As String
xPath = "c:\documenti\*.xls"
xFile = Dir(xPath)
xElenco = ""
Do While xFile <> ""
    If InStr(1, xFile, ".xls") > 0 Then
        xElenco = IIf(xElenco = "", xFile, xElenco & ";" & xFile)
    End If
    xFile = Dir
Loop
Me.ElencoXLS.RowSource = xElenco
End Sub
'------------------------
Poi con un bottone avvii l'importazione:
'------------------------
Private Sub bttnImportaXls_Click()
Dim NumXls As Integer, xFile As Variant, a As Integer, xPath As String
xPath = "c:\documenti\"
For a = 0 To Me.ElencoXLS.ListCount
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel97,
NomeTabella, xPath & Me.ElencoXLS.ItemData(a)
Next
End Sub
'------------------------
Ciao.

ti ringrazio per quello che mi hai scritto, non è un problema, la dirctori,
perchè  li carico da un dischetto,  ho ancora il problema di generare il
file con il nome contenuto all'interno del campo codice .
Grazie ancora
Carlo

 ha scritto nel messaggio
news:8nrpij$6lo$1...@nslave2.tin.it...

Che problema hai? Io ti ho suggerito (nella prima parte) di utilizzare un
bottone che esegue l'export della tabella (o query), te lo ripropongo:
per l'esportazione della tabella in un file excel nell'evento "su clic" di
un bottone (io l'ho chiamato bttnEsportaXls):
'------------------------
Private Sub bttnEsportaXls_Click()
Dim xPath As String
xPath = "c:\documenti\"
If Not IsNull(Me.Codice) Then
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel97,
NomeTabella, xPath & Me.Codice & ".xls"
End If
End Sub
'------------------------
Dove incontri dei problemi?
Ciao.

 > perchč  li carico da un dischetto,  ho ancora il problema di generare il



Mi dispiace ma sono refrattario alle chat, se intendi questo per paltalk. O
NG o e-mail (solo testo); scegli tu considerando che Ven parto e trono il 4
sett...
Ciao.