Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1428to1432
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Kopieren ohne Quelle zu öffnen

Kopieren ohne Quelle zu öffnen
04.06.2015 14:28:00
Christian
Hallo Zusammen,
ich würde gern aus einer großen Excel-Datei (160MB) einen definierten Bereich eines Tabellenblattes in eine neue Date kopieren, ohne die Quelldatei öffnen zu müssen.
Vielen Dank

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopieren ohne Quelle zu öffnen
04.06.2015 15:00:21
Sepp
Hallo Christian,
das geht z. B. so.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Public Sub ReadFromFile_ADO()
  'Daten nach Kriterium
  Dim objADO As Object
  Set objADO = ExcelTable("E:\Temp\test.xlsx", "Tabelle2", "A1:B8")
  Range("A2").CopyFromRecordset objADO
  objADO.Close
End Sub



Public Function ExcelTable(ByRef Path As String, ByRef Table As String, ByRef SourceRange As String, Optional WhereString As String = "") As Object
  Dim SQL As String
  Dim Con As String
  
  SQL = "select * from [" & Table & "$" & SourceRange & "] " & WhereString
  
  If Mid(Path, InStrRev(Path, ".") + 1) = "xls" Then
    Con = "Provider=Microsoft.Jet.OLEDB.4.0;" _
      & "Extended Properties=Excel 8.0;" _
      & "Data Source=" & Path & ";"
  ElseIf Mid(Path, InStrRev(Path, ".") + 1) Like "xls?" Then
    Con = "Provider=Microsoft.ACE.OLEDB.12.0;" _
      & "Extended Properties=""Excel 12.0;HDR=YES"";" _
      & "Data Source=" & Path & ";"
  Else
    Exit Function
  End If
  Set ExcelTable = CreateObject("ADODB.Recordset")
  ExcelTable.Open SQL, Con, 3, 1
End Function


Gruß Sepp

Anzeige
Da beide Prozeduren im gleichen Modul stehen, ...
04.06.2015 15:57:41
Luc:-?
…kann die Function doch sicher auch Private sein, Sepp,
was die (sinnlose) Anzeige im FmlAssi unterbinden würde.
Gruß, Luc :-?

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige