Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Excel-Datei in Access2007 neu einbinden per VBA

Frage Entwicklung VB for Applications

Mitglied: abangemann

abangemann (Level 1) - Jetzt verbinden

19.06.2010 um 19:17 Uhr, 5639 Aufrufe, 1 Kommentar

Hallo allerseits,

ich habe als FE eine Access2007 ACCDB und als BE eine SQL2005-Datenbank.
In meiner FE habe ich ebenfalls eine Excel-Datei verknüpft. Aus dieser werden Auftragsdaten, die vom Kunden kommen in die SQL-Datenbank importiert.

Da, sich nun der Speicherort und der Dateiname der Excel-Datei ändern können, muss der Anwender die Möglichkeit haben, die Excel-Datei neu einbinden zu können.
(BTW der Name des Excel-Tabellenblattes bleibt aber immer gleich!).

Ich versuche das mit folgendem Code zu ermöglichen:

01.
Public Function ExcelNeuEinbinden(AcTabName As String, FullPathName As String) 
02.
    Dim ConStr As String 
03.
    
04.
    ConStr = CurrentDb.TableDefs(AcTabName).Connect 
05.
    CurrentDb.TableDefs(AcTabName).Connect = Mid(ConStr, 1, InStr(ConStr, "DATABASE=") + 8) & FullPathName 
06.
    CurrentDb.TableDefs(AcTabName).RefreshLink 
07.
End Function

Die Funktion läuft ohne Probleme ab, es kommt keine Fehlermeldung und mit DebugPrint konnte ich feststellen, dass alle Variablen richtig gefüllt werden.

ABER:
Es passiert nichts :o(
Soll heißen, die Connect-Eigenschaft meiner verknüpften Excel-Tabelle bleibt gleich.

Woran kann das liegen? Oder weiß jemand vielleicht eine bessere Lösung, um die Excel-Datei neu einzubinden?

Gruß, Andreas.
Mitglied: abangemann
19.06.2010 um 19:44 Uhr
Eine Lösung für den "Fehler" im Code habe ich nicht,
aber dafür habe ich eine Lösung meines Problems!!!

Ich mach's jetzt mit:

Code:
Public Sub ExcelNeuEinbinden()
Dim db As Database
Set db = CurrentDb
db.TableDefs.Delete Tabellenname
db.TableDefs.Refresh
DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel8, Tabellenname, PfadZurExceldatei, True, Tabellenblatt
Set db = Nothing
End Sub


Und schon geht's!!!

Gruß, Andreas.
Bitte warten ..
Ähnliche Inhalte
VB for Applications
VBA Excel Dateien zusammenfassen (3)

Frage von cberndt zum Thema VB for Applications ...

Microsoft Office
gelöst Excel VBA UserForm1 - Daten in neue Datei kopieren (10)

Frage von abuelito zum Thema Microsoft Office ...

Microsoft Office
gelöst Excel 2010 mit VBA sortieren ? (4)

Frage von dressa zum Thema Microsoft Office ...

Neue Wissensbeiträge
Viren und Trojaner

FinFisher: Internetprovider schieben Spitzelopfern Malware unter

(1)

Information von kaiand1 zum Thema Viren und Trojaner ...

Humor (lol)

Wo ist der Fehler auf dem Bild?

(17)

Information von the-buccaneer zum Thema Humor (lol) ...

Windows Update

Offenbar erneutes MS-Update mit Fehlerschleife (2012 R2)

Information von VGem-e zum Thema Windows Update ...

Heiß diskutierte Inhalte
Lizenzierung
Programm soll in verschiedenen Versionen lizenziert sein (20)

Frage von Yanmai zum Thema Lizenzierung ...

Humor (lol)
Wo ist der Fehler auf dem Bild? (17)

Information von the-buccaneer zum Thema Humor (lol) ...

Windows Userverwaltung
Ordner-Rechte für Dom.Admin einschränken? (13)

Frage von kilobyte zum Thema Windows Userverwaltung ...