Newsgroup: it.comp.appl.access
Titolo: importare dati in excel da access

ho un file di excel con 2 colonne autore e titolocanzone
es:
branduardi     cogli la prima mela
vasco rossi    silvia
ecc...
ho poi un file di testo contenente altri autori e titoli separati dal
trattino come qui sotto:
altroautore-altrotitolo
altroautore2-altrotitolo2
Avrei bisogno di posizionarmi sulla prima riga libera del file di excel e
quindi importare le
righe del file di testo da tale posizione in poi, il risultato del file di
excel sarebbe
branduardi     cogli la prima mela
vasco rossi    silvia
altroautore-altrotitolo
altroautore2-altrotitolo2
riesco ad aprire il file di excel nel seguente modo, ma non so come fare
quanto detto qui sopra, qulcuno mi sa aiutare?
---------------------------------codice-----------
        Dim excApp As Excel.Application
        Dim excDoc As Excel.Workbook
        Set excApp = CreateObject("Excel.Application")
        Set excDoc =
excApp.Workbooks.Open("C:\Programmi\InfoeWeb\tntlistino\listino\listinocomet
a.xls")
        excApp.Visible = False
            Do While (excDoc.Worksheets(1).Cells(i, j) <> "") Or
excDoc.Worksheets(1).Cells(i + 1, j) <> ""
                'se il colore è blu è categoria e la prelevo
                If (excDoc.Worksheets(1).Cells(i, j) <> "") And
(excDoc.Worksheets(1).Cells(i, j + 1) = "") Then
                Else
                End If
                i = i + 1
            Loop
        excApp.Quit
        Set excDoc = Nothing
        Set excApp = Nothing
-----------------------------------------fine codice
Grazie a tutti

 
[CUT]
Io uso questo metodo e funziona egregiamente, l'ho anche implementato 
nel caso il foglio superi le 65k righe ma per ora gurada se ti può 
servire questo ;-)
'----- code on ----------------------------------------------------
Option Compare Database
' Dichiara le routine API necessarie:
Declare Function FindWindow Lib "user32" Alias _
                 "FindWindowA" (ByVal lpClassName As String, _
                                ByVal lpWindowName As Long) As Long
Declare Function SendMessage Lib "user32" Alias _
                 "SendMessageA" (ByVal hWnd As Long, _
                                 ByVal wMsg As Long, _
                                 ByVal wParam As Long, _
                                 ByVal lParam As Long) As Long
Sub GetExcel()
     Dim MyXL As Object                   ' Memorizza il riferimento a 
Microsoft Excel.
     Dim ExcelWasNotRunning As Boolean    ' Flag per il rilascio finale.
     ' Prova per verificare se vi è già una copia di Microsoft Excel in 
esecuzione.
     On Error Resume Next
     ' La funzione GetObject chiamata senza il primo argomento 
restituisce un
     ' riferimento a un'istanza dell'applicazione. Se l'applicazione non 
è in
     ' esecuzione viene generato un errore.
     Set MyXL = GetObject(, "Excel.Application")
     Select Case Err.Number
         Case 429: Set MyXL = CreateObject("Excel.Application")
         Case 0: ExcelWasNotRunning = False
         Case Else: ExcelWasNotRunning = True
     End Select
     Err.Clear    ' Cancella l'oggetto Err in presenza di errori.
     ' Visualizza Microsoft Excel tramite la proprietà Application, 
quindi visualizza
     ' la finestra effettiva che contiene il file utilizzando l'insieme 
Windows
     ' del riferimento all'oggetto MyXL.
     MyXL.Application.Visible = True
     MyXL.Parent.Windows(1).Visible = True
     ' Posizione per operazioni di modifica del file.
     MyXL.Workbooks("C:\windows\temp\nomefile.xls").Add
     'punto chiave da qui in poi ci puoi fare tutto quello che ti va
     'in base a quello che ti serve
     riga=1	'prima riga del foglio 1
     colonna=1	'prima colonna del foglio 1
     do until MyXL.Worksheets(1).Cells(riga, colonna) = ""
         riga=riga+1
     loop
     MyXL.Worksheets(1).Cells(riga, colonna) = "Ciao mondo"
     ' Se questa copia di Microsoft Excel non era già in esecuzione 
dall'inizio,
     ' la chiude utilizzando il metodo Quit della proprietà Application.
     ' Quando si cerca di uscire da Microsoft Excel, la barra del titolo
     ' lampeggia e viene visualizzato un messaggio per richiedere se si 
desidera
     ' salvare i file caricati.
     If ExcelWasNotRunning = True Then
         MyXL.Application.Quit
     Else
         MyXL.Quit acPrompt
         MyXL.Application.Quit
     End If
     ' Rilascia il riferimento alla applicazione e al foglio di lavoro.
     Set MyXL = Nothing
End Sub
Sub DetectExcel()
     ' La routine individua un'istanza di Excel in esecuzione e la registra.
     Const WM_USER = 1024
     Dim hWnd As Long
     ' Se Excel è in esecuzione questa chiamata API restituisce l'handle 
corrispondente.
     hWnd = FindWindow("XLMAIN", 0)
     If hWnd = 0 Then    ' 0 significa che Excel non è in esecuzione.
         Exit Sub
     Else
     ' Poiché Excel è in esecuzione è necessario utilizzare la funzione
     ' API SendMessage per inserirlo nella tabella Running Object.
         SendMessage hWnd, WM_USER + 18, 0, 0
     End If
End Sub
Function DetectXLS() As Boolean
     ' Funzione che individua un'istanza di Excel in esecuzione.
     Dim hWnd As Long
     ' Se Excel è in esecuzione questa chiamata API restituisce l'handle 
corrispondente.
     hWnd = FindWindow("XLMAIN", 0)
     If hWnd = 0 Then    ' 0 significa che Excel non è in esecuzione.
         DetectXLS = False
     Else
         DetectXLS = True
     End If
End Function
'----- code off ---------------------------------------------------
byez
-- 
Claudio(BS)
per rispondere aggiungi claudio
Posted from X-Privat Free NNTP server - 
www.x-privat.org