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, 2896 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
CSV-Datei nach Excel importieren (5)

Frage von mrvfbnummer2 zum Thema Batch & Shell ...

Neue Wissensbeiträge
Windows Server

Umstellung SHA 1 auf SHA 2 - Migration der CA von CSP auf KSP

Tipp von Badger zum Thema Windows Server ...

Windows 10

Quato DTP94 unter Windows 10 x64 installieren und verwenden

Anleitung von anteNope zum Thema Windows 10 ...

Windows 10

Win10 1703 und Nutzerkennwörter bei Ersteinrichtung - erstaunliche Erkenntnis

(15)

Erfahrungsbericht von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
Festplatten, SSD, Raid
gelöst Raid-Controller (Areca) Datenverlust trotz R5 (16)

Frage von sebastian2608 zum Thema Festplatten, SSD, Raid ...

Server-Hardware
HP ProLiant DL380 G7, POST Error: 1785-Drive Array not Configured (10)

Frage von Paderman zum Thema Server-Hardware ...

Windows Server
Drucker per GPO auf Userebene freigeben (9)

Frage von Stefan007 zum Thema Windows Server ...

Microsoft Office
gelöst Office 365 Pro Domäne einrichten OHNE Webseite (9)

Frage von thklemm zum Thema Microsoft Office ...