Newsgroup: it.comp.appl.access
Titolo: esportare in excel

Ciao a tutti.
utlizzo questo codice per esportare da una tabella prova in celle di
excel:
DoCmd.TransferSpreadsheet acExport, _
      SpreadSheetType:=acSpreadsheetTypeExcel9, _
      TableName:="Prova", _
      FileName:="C:\Document\Excel\XLS\Statistica2.xls", _
      Range:="Sheet2!D15:H15", _
      HasFieldNames:=True
il mio problema è il seguente:la tabella prova è costituita da 5
campi e il primo campo devo inserirlo nella cella A1,il secondo campo
nella cella D20,il terzo campo...ecc ecc..
il codice soprà però chiede il range e non la singola cella;come
posso fare associare ogni campo ad una cella?devo strutturare 5 tabelle
con un solo campo?
Grazie a tutti

 wrote in message 
news:1169542174....@a75g2000cwd.googlegroups.com...



=========================================
Riconosco quel codice...
La cosa più semplice dovrebbe essere esportare la tabella in una
zona di foglio, o in un foglio, separata dalla zona in cui sono
ubicate le celle A1, D20 etc.
Poi da ciascuna di queste creare un link con le corrispondenti
celle ubicate nella zona separata di cui sopra.
Meno semplice creare un Array contenente per ciascun
campo della tabella di Access i corrispondenti offset per
Excel ed effettuare quindi l'esportazione direttamente
in A1, D20, etc.
Bruno 

Grazie Bruno.
Mi sa che provvedo a scrivere codice e creare ogni tabella per ogni
campo che si deve esportare...piu che altro è che sono circa 50!Ho che
da divertirmi oggi.
L'unico problema che mi rimane è che quando esporto mi esporta oltre
al valore del campo anche l'intestazione della tabella....ho provato a
mettere hasfieldname=false ma non funziona.Non sapete come potrei fare?
Grazie

 wrote in message 
news:1169549964.3...@q2g2000cwa.googlegroups.com...

=====================================
In effetti HasFieldNames funziona solo in modalità acImport
(import in Access da Excel):
- se := False la procedura cerca nella tabella di Access i
   campi F1, F2, etc, e se non li trova genera errore;
- se := True la procedura assume che la prima cella di Range
   contenga il nome del campo, quindi ricerca nella tabella di
   Access tale campo.
In modalità acExport (quella che stai usando) la definizione
di HasFieldNames è indifferente.
Bruno
 

 ha scritto nel messaggio 
news:1169542174....@a75g2000cwd.googlegroups.com...



[risposta]
Vai sul sito di Karl:
http://www.donkarl.com/AccessFAQ.htm?/it/CISA/Download.htm
CISA 1 - Download - Automazione Excel
Ciao.
-- 
Sergio MAZZA 

ok appena il sito è disponibile proverò a darci un occhio
GRazie

ho usato il codice dal sitocomune:
    Dim excApp As Object
    Dim excDoc As Object
    Dim blOpen As Boolean
   On Error Resume Next
    blOpen = True
    Set excApp = GetObject(, "Excel.Application")
    If Err.Number = 429 Then
        Set excApp = CreateObject("Excel.Application")
        blOpen = False
        Err.Number = 0
            End If
    On Error GoTo gestErrori
    Set excDoc = excApp.workbooks.Add
    excApp.Visible = True
    excDoc.Worksheets(2).Cells(2, 2) = Me.Testo2
    If Not blOpen Then
        excDoc.Close savechanges:=False
        excApp.Application.Quit
    End If
esci:
    Set excDoc = Nothing
    Set excApp = Nothing
    Exit Sub
gestErrori:
    MsgBox Err.Number & " - " & Err.Description
    GoTo esci
Ma è possibile invece di far aprire un foglio excel nuovo,aprirne uno
già esistente?

 ha scritto nel messaggio 
news:1169562674....@h3g2000cwc.googlegroups.com...


[risposta]
...
Set excDoc = excApp.workbooks.Open "nomeFile"
...
Ciao.
-- 
Sergio MAZZA 

 Sergio MAZZA
ho provato con
Set excDoc = excApp.workbooks.open "e:\prova.xls"
ma non va.Non è giusto passare dove si trova il file?

 ha scritto nel messaggio 
news:1169563542.9...@j27g2000cwj.googlegroups.com...
ho provato con
Set excDoc = excApp.workbooks.open "e:\prova.xls"
ma non va.Non č giusto passare dove si trova il file?
[risposta]
"Non va" non significa nulla; se ti presenta un errore dovresti indicare la 
riga dove si blocca l'esecuzione e il messaggio.
Comunque mancano le parentesi tonde:
Set excDoc = excApp.workbooks.open("e:\prova.xls")
Ciao.
-- 
Sergio MAZZA 

Ciao.
Scusa ma l'errore lo dava proprio sulla riga che avevo riportato.
Ora funziona tutto.grazie mille