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:
879		 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.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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