Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 2886 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 ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(1)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Batch & Shell
gelöst Powershell - Dateien aus verschiedenen Arrays - Attribute vergleichen (5)

Frage von Giffas zum Thema Batch & Shell ...

Batch & Shell
14 Tage alte Dateien automatisch löschen - Shell (1)

Frage von traller zum Thema Batch & Shell ...

Batch & Shell
gelöst EDI Dateien auf Inhalt prüfen und verschieben (6)

Frage von ThomasKern zum Thema Batch & Shell ...

VB for Applications
gelöst Mehrere CSV Dateien aus verschiedenen Ordner einlesen via VBA (12)

Frage von mtufangil zum Thema VB for Applications ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Outlook & Mail
Outlook 2010 findet ost datei nicht (18)

Frage von Floh21 zum Thema Outlook & Mail ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...