Mefisto...diabeł czy anioł?

Witam

Za pomoc± funkcji ,która znajduje siê na dole, kopiuje rekordy ktore spelniaja pewne kryteria do arkusza excela i DZIA£A , tylko dlaczego w innym arkuszu w tym samym skoroszycie zmienia siê formatowanie niektórych komórek , np. z ogólnego na tekstowy itp.

???

pzdr.
mrjoy


Sub ADOImportFromAccessTable(DBFullName As String, _
    TableName As String, TargetRange As Range)

Dim cn As ADODB.Connection, rs As ADODB.Recordset, intColIndex

    Set TargetRange = TargetRange.Cells(1, 1)
   
    Set cn = New ADODB.Connection
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
        DBFullName & ";"
    Set rs = New ADODB.Recordset
   
   
    With rs
       
      .Open "SELECT * FROM " & TableName & _
   " WHERE (koniec<=#" & kon & "# and koniec>=#" & pocz & "#) or (Pocz±tek<=#" & pocz & "# and koniec>=#" & kon & "#) or (Pocz±tek>=#" & pocz & "# and pocz±tek<=#" & kon & "# and koniec is not null)", cn, , , adCmdText

       TargetRange.CopyFromRecordset rs ' use with Excel 2000 or later
       
    End With
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
End Sub

[ Dodano: 2007-09-25, 09:45 ]
  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • katkaras.opx.pl