Top-Themen

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

Frage Entwicklung VB for Applications

Inhalt von verschiedenen html- Dateien in ausgesuchten Excelzellen automatisch importieren

Mitglied: thhaeger

thhaeger (Level 1) - Jetzt verbinden

08.08.2010 um 08:18 Uhr, 2904 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
Microsoft Office
Excel VBA - Inhalte und Dateiname von txt-Dateien automatisch in Excel importieren
gelöst Frage von Booster07Microsoft Office2 Kommentare

Hallo zusammen, folgendes Problem habe ich so leider nicht im Internet finden können. Deshalb hoffe ich auf eure Hilfe. ...

Entwicklung
ICS Dateien automatisch in Outlook importieren
Frage von derausgroenlohEntwicklung7 Kommentare

Hallo zusammen, ich möchte gerne ICS Dateien per script in Outlook importieren. Wir haben ein Programm, dass für unsere ...

Batch & Shell
Intellisense in Powergui - Inhalte verschieden
gelöst Frage von lupus1Batch & Shell4 Kommentare

Auf zwei verschiedenen Rechnern sind Powershell und Powergui installiert. Wird z.B. das Commandlet "Get-ChildItem -force" eingegeben und bei "force" ...

Batch & Shell
Automatische Erzeugung von Batch-Dateien mit definierten unterschiedlichen Inhalten
gelöst Frage von Booster07Batch & Shell2 Kommentare

Hallo zusammen, ich hoffe auf Eure Hilfe bei einer Problemstellung, die meiner Meinung nach durch ein Batchskript lösbar sein ...

Neue Wissensbeiträge
Linux

Meltdown und Spectre: Linux Update

Information von Frank vor 1 TagLinux

Meltdown (Variante 3 des Prozessorfehlers) Der Kernel 4.14.13 mit den Page-Table-Isolation-Code (PTI) ist nun für Fedora freigegeben worden. Er ...

Tipps & Tricks

Solutio Charly Updater Fehlermeldung: Das Abgleichen der Dateien in -Pfad- mit dem Datenobject ist fehlgeschlagen

Tipp von StefanKittel vor 2 TagenTipps & Tricks

Hallo, hier einmal als Tipp für alle unter Euch die mit der Zahnarztabrechnungssoftware Charly von Solutio zu tun haben. ...

Sicherheit

Meltdown und Spectre: Wir brauchen eine "Abwrackprämie", die die CPU-Hersteller bezahlen

Information von Frank vor 2 TagenSicherheit12 Kommentare

Zum aktuellen Thema Meltdown und Spectre: Ich wünsche mir von den CPU-Herstellern wie Intel, AMD oder ARM eine Art ...

Sicherheit

Meltdown und Spectre: Realitätscheck

Information von Frank vor 2 TagenSicherheit10 Kommentare

Die unangenehme Realität Der Prozessorfehler mit seinen Varianten Meltdown und Spectre ist seit Juni 2017 bekannt. Trotzdem sind immer ...

Heiß diskutierte Inhalte
Batch & Shell
Meltdown Microsoft Prüf Script - .zip Datei leider leer
gelöst Frage von MasterBlaster88Batch & Shell13 Kommentare

Hallo zusammen, ich patche gerade unsere Windows Server bzgl. der Meltdown Lücke. Patch vorhanden, Reg Keys gesetzt Um das ...

Batch & Shell
Shell-Skript - Syntax error: Unterminated quoted string
Frage von newit1Batch & Shell13 Kommentare

Hallo Ich schreibe ein Skript das eine CSV-Datei in eine mySQL Datenbank schieben soll. Bekomme nach start des Skrips ...

E-Mail
Erfahrungen mit hMailServer gesucht
Frage von it-fraggleE-Mail10 Kommentare

Hallo, meine neue Stelle möchte einen eigenen Mailserver. Ich als Linuxkind war direkt geistig mit Postfix dabei. Leider wollen ...

Entwicklung
VBS: alle PDF-Dateien in einem Ordner gleichzeitig öffnen
gelöst Frage von JuweeeEntwicklung9 Kommentare

Hallo, ich habe in deiner Ordnerstruktur (.\Tagesberichte\xx.18\) mehrere dynamische PDF-Formulare (mit LCD erstellt). Die Berichtsformulare sind im Layout alle ...