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

Inhalt von verschiedenen html- Dateien in ausgesuchten Excelzellen automatisch importieren

Frage Entwicklung VB for Applications

Mitglied: thhaeger

thhaeger (Level 1) - Jetzt verbinden

08.08.2010 um 08:18 Uhr, 2897 Aufrufe, 8 Kommentare

Hallo zusammen,

ich habe folgendes Problem.

Es gibt eine Exceltabelle, die ca. 1000 Zeilen und 50 spalten ausweist. Jede Zeile ist ein anderer Artikel.

In Spalte AF soll die Beschreibung des Artikels stehen.

Die Beschreibung ist im html Code geschrieben und befindet sich in einemseperaten Verzeichnis:

Bsp Excel:

Spalte AF/Zeile2:

Ordnername/htm1

Spalte AF/Zeile3:

Ordnername/html2

Spalte AF/Zeile4:

Ordnername/html3

usw.

So ist in jeder zeile der Verweis auf die entsprechende Datei gegeben

Die html dateien sehen dann etwa so aus:

C:\Verzeichnisname\html1
C:\Verzeichnisname\html2
C:\Verzeichnisname\html3
usw.

Nun möchte ich natürlich, das in der Exceltabelle nicht C:\Verzeichnisname\html1 steht sondern der zugehörige html-Code (also den Inhalt der datei) importiert wird.

Und das am besten automatisch (z.b vba, Batch etc), da es ja ca. 1000 Änderungen sind

Hat da jemand eine Idee?

Danke

Thomas
Mitglied: 76109
08.08.2010 um 09:36 Uhr
Hallo thhaeger!

Wär's dann nicht sinnvoller, beim selectieren eines Eintrages in Spalte AF einen Editor mit dem Quelltext der jeweiligen Datei zu öffnen?

Gruß Dieter
Bitte warten ..
Mitglied: thhaeger
08.08.2010 um 10:35 Uhr
Hallo Dieter,

wenn ich Dich richtig verstehe, dann müsste ich ja das ganze händisch bis zu 1000 x machen. Oder versteh ich dich falsch?

Gruß
Thomas
Bitte warten ..
Mitglied: 76109
08.08.2010 um 11:09 Uhr
Hallo Thomas!

Ich hatte eigentlich eher an eine automatisierte Funktion via Makro (VBA-Code) gedacht

Sind die die Pfadangaben aktuell als Hyperlinks aktiv?

Gruß Dieter
Bitte warten ..
Mitglied: thhaeger
08.08.2010 um 11:19 Uhr
nee, sind kein hyperlinks

Gruß
Thomas
Bitte warten ..
Mitglied: 76109
08.08.2010 um 15:45 Uhr
Hallo Thomas!

Also, bei Verwendung des nachfolgenden VBA-Codes, wird automatisch beim auswählen einer gültigen Zelle (ab Zeile, Spalte...) automatisch - sofern die Datei auch existiert - der NotePad-Editor mit dem Quelltext der Datei geöffnet.

Diesen Code im VB-Editor in das entsprechende Tabellenblatt einfügen:
01.
Option Explicit 
02.
 
03.
Const StartZeile = 3    'Pfadangaben ab Zeile ? 
04.
Const LinkSpalte = 32   'Pfadangaben in Spalte AF 
05.
 
06.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
07.
    Dim Fso As Object, Path As String 
08.
     
09.
   'Prüfen ob eine Zelle aus der LinkSpalte ausgewählt ist? Wenn nein abbrechen 
10.
    With Target 
11.
        If .Count > 1 Or .Row < StartZeile Or .Column <> LinkSpalte Then Exit Sub 
12.
    End With 
13.
     
14.
   'Object mit Datei-Funktionen einbinden 
15.
    Set Fso = CreateObject("Scripting.FileSystemObject") 
16.
     
17.
    Path = Target.Text & ".html" 'Html-Pfad erzeugen, die Dateierweiterung bei Bedarf anpassen 
18.
     
19.
   'Test ob die Datei mit Pfadangabe existiert? Wenn ja Editor mit Quelltext öffnen 
20.
    If Fso.FileExists(Path) Then 
21.
        Shell "NotePad" & " """ & Path & """", vbNormalFocus 
22.
    End If 
23.
End Sub
Wobei ich angenommen habe, das bei den Pfadangaben in den Zellen, die Dateierweiterung .html fehlt. Falls die Pfadangaben in den Zellen doch vollständig sind , dann die Codezeile 17, wie folgt abändern:
01.
Path = Target.Text
Gruß Dieter
Bitte warten ..
Mitglied: thhaeger
09.08.2010 um 08:05 Uhr
Hallo Dieter,

vielen dank für den Code. Werde ihn mal testen

Gruß
Thomas
Bitte warten ..
Mitglied: thhaeger
11.08.2010 um 10:47 Uhr
Hallo Dietr,

ich bin irgendwie zu blöd oder ich habe ein brett vorm Kopf.

ich bekomme dein Script nicht ans laufen. Er erstellt kein makro, was man ausführen könnte.

Gruß
Thomas
Bitte warten ..
Mitglied: 76109
11.08.2010 um 10:55 Uhr
Hallo Thomas!

Zitat von thhaeger:
ich bin irgendwie zu blöd oder ich habe ein brett vorm Kopf.
ich bekomme dein Script nicht ans laufen. Er erstellt kein makro, was man ausführen könnte.
Du musst den Code im VB-Editor in das Tabellenblatt mit dem Namen des Tabellenblattes kopieren z.B. Tabelle1 wäre Code (Quelltext) in Tabelle? (Tabelle1) kopieren. Das Makro satrtet sich dabei von selbst, sobald eine Zelle im entsprechenden Bereich ausgewählt (selektiert) wird.

Gruß Dieter

PS.Wenn das NotePad-Fenster in seiner maximalen Größe geöffnet werden soll, dann ersetze "vbNormalFocus" durch "vbMaximizedFocus"
Bitte warten ..
Ähnliche Inhalte
Entwicklung
ICS Dateien automatisch in Outlook importieren (7)

Frage von derausgroenloh zum Thema Entwicklung ...

Microsoft Office
gelöst Excel VBA - Inhalte und Dateiname von txt-Dateien automatisch in Excel importieren (2)

Frage von Booster07 zum Thema Microsoft Office ...

Batch & Shell
gelöst Automatische Erzeugung von Batch-Dateien mit definierten unterschiedlichen Inhalten (2)

Frage von Booster07 zum Thema Batch & Shell ...

Batch & Shell
CSV-Datei nach Excel importieren (5)

Frage von mrvfbnummer2 zum Thema Batch & Shell ...

Neue Wissensbeiträge
LAN, WAN, Wireless

Neue Cisco Catalyst-Serie 9000

Information von Kuemmel zum Thema LAN, WAN, Wireless ...

Sicherheit

Millionen Euro in den Sand gesetzt?

(3)

Information von transocean zum Thema Sicherheit ...

Heiß diskutierte Inhalte
Netzwerke
Mobile Einwahl IPSec VPN von iPhone iPad T-Mobile zur Pfsense (14)

Frage von Spitzbube zum Thema Netzwerke ...

Ausbildung
Sinnvolles Einstiegsgehalt für FiSi nach der Ausbildung (12)

Frage von nutzername1 zum Thema Ausbildung ...

LAN, WAN, Wireless
Eine Netzwerkdose im Wechsel für zwei unterschiedliche Netze (12)

Frage von kartoffelesser zum Thema LAN, WAN, Wireless ...