TKSoft-Online

Willkommen, Gast
Benutzername: Passwort: Angemeldet bleiben:
Passwort vergessen? Benutzername vergessen?
Forum TKSoft-Online
MS-Access
MS-Access - Fragen und Antworten

xls Datei aus http Link direkt nach Access import.
(1 Leser) (1) Gast
Alles rund um MS-Access
Auf Thema antworten
Neues Thema
  • Seite:
  • 1

THEMA: xls Datei aus http Link direkt nach Access import.

xls Datei aus http Link direkt nach Access import. 1 Jahr, 11 Monate her #698

Hallo,
vielleicht hat ja jemand eine Idee wie das geht.

Ich habe eine XLS Datei im Web (domain.com/beispiel.xls) und möchte diese gerne direkt nach Access importieren, ohne diese Datei lokal zu speichern.

geht das irgendwie?
danke für Eure Hinweise.
Antwort Zitieren

Re:xls Datei aus http Link direkt nach Access import. 1 Jahr, 11 Monate her #699

  • TommyK
  • OFFLINE
  • Administrator
  • Beiträge: 502
  • Karma: 4
Hallo,

das geht meines Wissens nicht. Es klappt nur mit XML-Dateien.
Du wirst die Exceldatei erst downloaden müssen und dann importieren.
Aber das kann man automatisieren.
z.B.:
Private Declare Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" (ByVal pCaller As Long, _
ByVal szURL As String, ByVal szFileName As String, _
ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
 
 
Public Sub DownloadFile(sURLFile As String, sLocalFile As String)
    Dim lResult As Long
 
    Screen.MousePointer = vbHourglass
    lResult = URLDownloadToFile(0, sURLFile, sLocalFile, 0, 0)
    Screen.MousePointer = vbNormal
 
    If lResult = 0 Then
        MsgBox Download erfolgreich ausgeführt!
    Else
        MsgBox "Fehler beim Download" & _ 
               "Entweder existiert die URL nicht, oder Sie haben " & _
               "einen ungültigen Dateinamen angegeben!", vbCritical
    End If
End Sub

Und dann der Aufruf:
Private Sub Befehl0_Click()
    DownloadFile "http://domain.com/beispiel.xls", & "E:\Downloads\beispiel.xls"
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "Tabelle1", "E:\Downloads\beispiel.xls", False
End Sub
Gruß TommyK
Letzte Änderung: 1 Jahr, 11 Monate her von Tommy Admin.
Antwort Zitieren

Aw: xls Datei aus http Link direkt nach Access import. 1 Jahr, 3 Monate her #791

  • xmaster
  • OFFLINE
  • Fresh Boarder
  • Beiträge: 2
  • Karma: 0
Hallo,

Ich habe mir mal das Beispiel angesehen...
Jetzt zu meiner (wahrscheinlich Blöden)Frage:

Wo muß den der Code genau hin???

________________________________________________________________________
Private Declare Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" (ByVal pCaller As Long, _
ByVal szURL As String, ByVal szFileName As String, _
ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Public Sub DownloadFile(sURLFile As String, sLocalFile As String)
Dim lResult As Long

Screen.MousePointer = vbHourglass
lResult = URLDownloadToFile(0, sURLFile, sLocalFile, 0, 0)
Screen.MousePointer = vbNormal

If lResult = 0 Then
MsgBox Download erfolgreich ausgeführt!
Else
MsgBox "Fehler beim Download" & _
"Entweder existiert die URL nicht, oder Sie haben " & _
"einen ungültigen Dateinamen angegeben!", vbCritical
End If
End Sub
________________________________________________________________________

LG XM
Letzte Änderung: 1 Jahr, 3 Monate her von xmaster.
Antwort Zitieren

Aw: xls Datei aus http Link direkt nach Access import. 1 Jahr, 3 Monate her #792

  • TommyK
  • OFFLINE
  • Administrator
  • Beiträge: 502
  • Karma: 4
Mahlzeit,

diesen Code kopierst Du in ein neues Modul und speicherst das dann.
Wichtig ist das Module nie den Namen einer Function oder Sub haben.
Also am besten den Präfix "mod_" oder "mdl_" nehmen.
z.B.: "mod_Download"
Gruß TommyK
Antwort Zitieren

Aw: xls Datei aus http Link direkt nach Access import. 1 Jahr, 3 Monate her #793

  • xmaster
  • OFFLINE
  • Fresh Boarder
  • Beiträge: 2
  • Karma: 0
Danke für deine Hilfe...

Aber:
Modul: Mod_Down
Private Declare Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" (ByVal pCaller As Long, _
ByVal szURL As String, ByVal szFileName As String, _
ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
 
 
Public Sub DownloadFile(sURLFile As String, sLocalFile As String)
    Dim lResult As Long
 
    Screen.MousePointer = vbHourglass
    lResult = URLDownloadToFile(0, sURLFile, sLocalFile, 0, 0)
    Screen.MousePointer = vbNormal
 
    If lResult = 0 Then
        'MsgBox Download erfolgreich ausgeführt!
    Else
        MsgBox "Fehler beim Download" & _
               "Entweder existiert die URL nicht, oder Sie haben " & _
               "einen ungültigen Dateinamen angegeben!", vbCritical
    End If
End Sub


Und meinen Button in einem Formular:

Private Sub Befehl50_Click()
 DownloadFile "http://rapidshare.com/files/445337738/Update22.rar", & "D:\Downloads\Update22.rar"
    'DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel12, "Tabelle1", "D:\Downloads\Update22.rar", False
End Sub


Wenn ich auf meinen Button klicke, bekomme ich immer die Meldung:

Microsoft Visual Basic
Fehler beim Kopilieren
Syntaxfehler

Und die Zeile wird rot Eingefährbt:
DownloadFile "http://rapidshare.com/files/445337738/Update22.rar", & "D:\Downloads\Update22.rar"


Weis nicht warum...
Jemand eine Idee?

LG XM
Antwort Zitieren

Aw: xls Datei aus http Link direkt nach Access import. 1 Jahr, 3 Monate her #794

  • TommyK
  • OFFLINE
  • Administrator
  • Beiträge: 502
  • Karma: 4
Moin xm,

upps, hier ist ein Fehler im Bsp, das "&" ist zuviel:
Richtig ist:
DownloadFile "http://rapidshare.com/files/445337738/Update22.rar", "D:\Downloads\Update22.rar"
Gruß TommyK
Antwort Zitieren
Auf Thema antworten
Neues Thema
  • Seite:
  • 1
Forum TKSoft-Online
MS-Access
MS-Access - Fragen und Antworten
Moderatoren: TommyK
Powered by Kunena
Ladezeit der Seite: 3.35 Sekunden

Login

Hauptmenü

Latest News

Latest Comments

Latest Downloads

Arbeiten mit EXIF-Tags und der GDI+ Library
05.09.2011
in MS-Access Datei & System
Errechnen einer IBAN mit Access
16.06.2011
in MS-Access Sonstiges
Verwaltung eines Skatturniers
31.05.2011
in MS-Access Sonstiges
Arbeiten mit dem TempVars-Objekt
25.03.2011
in MS-Access Sonstiges
Arbeiten mit Fakultät, Variationen und Permutation...
10.02.2011
in MS-Access Sonstiges

Latest Forum Posts

Mehr »

Download Statistik

41 Kategorien
187 Dateien
173377 Downloads

JoomlaWatch 1.2.11 - Joomla Monitor and Live Stats by Matej Koval