Thema Datum  Von Nutzer Rating
Antwort
22.11.2019 16:10:06 Pixxel
NotSolved
23.11.2019 00:27:20 Gast50835
NotSolved
23.11.2019 08:24:04 Gast12230
NotSolved
23.11.2019 09:08:59 Pixxel
NotSolved
Rot Datenverbindung Pfad ändern
 23.11.2019 19:29:38 Gast55262
*****
Solved
24.11.2019 17:43:17 Pixxel
NotSolved

Ansicht des Beitrags:
Von:
Gast55262		 Datum:
23.11.2019 19:29:38		 Views:
748		 Rating:
     
Antwort:
 Nein
Thema:
Datenverbindung Pfad ändern

Ok.

Was du machen müsstest, wäre den Ausdruck am Semikolon zu trennen; dann hast du ein Datenfeld und suchst nach dem 'Data Source'. Wenn du das hast, Pfad setzen und das ganze wieder Retur zurück geschrieben.

  Dim vnt As Variant
  Dim vntE As Variant
  Dim i As Long
  
  'vnt = .Connection
  ' * simples Beispiel vorgeben
  vnt = "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=C:\Users\Benu\Desktop\Andreas\AAA\Ertragsübersicht Werkstatt AAA 2019_2.xlsx;Mode=Share Deny Write;Extended Properties=""HDR=YES;"
  
  vnt = Split(vnt, ";")
  For i = 0 To UBound(vnt)
    
    vntE = Split(vnt(i), "=")
    If 0 = StrComp(Trim$(vntE(0)), "Data Source", vbTextCompare) Then
      vntE(1) = "c:\neuerpfad\neueDatei.xyz" 'simples Beispiel
      vnt(i) = Join(vntE, "=")
      Exit For
    End If
    
  Next
  
  vnt = Join(vnt, ";")
  '.Connection = vnt

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
22.11.2019 16:10:06 Pixxel
NotSolved
23.11.2019 00:27:20 Gast50835
NotSolved
23.11.2019 08:24:04 Gast12230
NotSolved
23.11.2019 09:08:59 Pixxel
NotSolved
Rot Datenverbindung Pfad ändern
 23.11.2019 19:29:38 Gast55262
*****
Solved
24.11.2019 17:43:17 Pixxel
NotSolved