Re,
mozda ovaj odgovor nece imati nikakve koristi ali svejedno vredi pokusati.
Mislim da Peca ce moci adaptirati ovu kodu kojusam pronasao na jednom od foruma u FR,
i koja sluzi za importovanje podataka iz zatvorene radne sveske bez njenog otvaranja.
Inace postoje i druge varijante sa ovim ADO
Pozdrav
Code:
Attribute VB_Name = "ADOImporterFeuilleEntiere"
'uneti podatke radnog lista iz zatvorene radne sveske
'(samo su podaci importirani, Ne njihovi karakteri npr Bold, Italic itd. )
Sub testQuery()
fich$ = "D:\ExempleTris.xls"
Feuille$ = "Feuil1"
QueryWorksheet fich, Feuille
End Sub
Public Sub QueryWorksheet(NomFichier$, Feuille$)
'obavezno cekiranje referencije
'Microsoft ActiveX Data Object 2.x Library
Dim rsData As ADODB.Recordset
Dim szConnect As String
Dim szSQL As String
''' Napraviti lanac za konekciju
szConnect = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & NomFichier & ";" & _
"Extended Properties=Excel 8.0;"
' rekete je bazirana na ime radnog lista. To ime
' treba dase zavrsava sa $ i treba biti izmedju ovih zagrada
' Adaptirati ime prema potrebi
szSQL = "SELECT * FROM [" & Feuille & "$];"
Set rsData = New ADODB.Recordset
rsData.Open szSQL, szConnect, adOpenForwardOnly, _
adLockReadOnly, adCmdText
''' Proveriti dalisu informacije stigle
If Not rsData.EOF Then
Feuil1.Range("A1").CopyFromRecordset rsData
Else
MsgBox "Nema nikakvih informacija.", vbCritical
End If
''' Zapisivanje za kraj...
rsData.Close
Set rsData = Nothing
End Sub
''' Sa izvinjenjem na ovom divljem prevodu
Nepostoje idiotska pitanja, samo idioti ne postavljaju pitanje !!!