2016-10-25 14 views
-6

Ich hoffe, Werte aus einer Excel-Tabelle in eine HTML-Tabelle zu kopieren. Wenn jemand Erfahrung zwischen Excel 2013 und Internet Explorer 11 hat, lassen Sie es mich bitte wissen und ich kann Einzelheiten angeben. DankeKopieren von Spalten von Werten aus Excel-Arbeitsblatt in eine HTML-Tabelle in einer Website

Hier finden Sie ein wenig Abschnitt des Codes für die Website, die ich versuche, den Fill-in-Prozess zu automatisieren für:

Table and Source Code for Charge Numbers for the Site

Dies zeigt nur einen Teil des Prozesses (die Gebührennummern), die wir irgendwo von 10-25 jede Woche mit ihren entsprechenden Stunden haben, die ihnen jeden Tag berechnet werden (wie in der Tabellenmatrix gesehen).

Es gibt 7 Ladungszahlen auf jeder Seite und Chargennummern haben alle name = „chargeNo“ und ID-Namen mit jedem Feld nach unten wie so erhöhen:

'1) id="chargeNo0" 
'2) id="chargeNo1" 
'3) id="chargeNo2" 
'4) id="chargeNo3" 
'5) id="chargeNo4" 
'6) id="chargeNo5" 
'7) id="chargeNo6" 

Jeder Tag der Woche hat auch Namen wie folgt festgelegt:

Table and Source Code for Hours Charged Each Day

'Saturday: name="hrs0" 
'Sunday: name="hrs1" 
'Monday: name="hrs2" 
'Tuesday: name="hrs3" 
'Wed: name="hrs4" 
'Thurs: name="hrs5" 
'Fri: name="hrs6" 

Ich versuche den Vorgang zu automatisieren, die Arrays von Ladezeiten, die ich von Excel habe, zu ziehen und sie in ihre jeweiligen Textfelder einzugeben.

+0

Hallo und willkommen zu StackOverflow. Bitte nehmen Sie sich etwas Zeit, um die Hilfeseite zu lesen, insbesondere die Abschnitte mit dem Namen ["Welche Themen kann ich hier fragen?"] (Http://stackoverflow.com/help/on-topic) und ["Welche Arten von Fragen sollte ich haben nicht fragen? "] (http://stackoverflow.com/help/dont-ask). Und, was noch wichtiger ist, lesen Sie bitte [die Checkliste für Stack Overflow-Fragen] (http://meta.stackexchange.com/q/156810/204922). Vielleicht möchten Sie auch etwas über [Minimale, vollständige und überprüfbare Beispiele] (http://stackoverflow.com/help/mcve) erfahren. Und fügen Sie den Code ein, mit dem Sie arbeiten möchten ... damit die Leute helfen können. – Rdster

+0

Meinst du, du willst einen Bereich in eine HTML-Tabelle umwandeln, so dass er ganz oder teilweise zu einer Webseite werden kann? Verfügt die Website über ein Formular, das Sie mit VBA ausfüllen möchten? Dies sind nur zwei mögliche Bedeutungen Ihrer Frage. Hätten Sie Ihren fehlerhaften Code eingegeben, hätten wir erraten können, was Sie wollten. –

Antwort

0

Dieses Skript konvertiert Elemente in ColumnA in ein Array.

Sub MakeArray() 
    Dim arr As Variant 

    With ActiveSheet 
     arr = WorksheetFunction.Transpose(.Range(.[A1], .Cells(Rows.Count, "A").End(xlUp))) 
    End With 
End Sub 


Sub MakeString() 
    Dim s As String 

    Const DELIMITER = "," 

    With ActiveSheet 
     s = Join(WorksheetFunction.Transpose(.Range(.[A1], .Cells(Rows.Count, "A").End(xlUp))), DELIMITER) 
    End With 
End Sub 

Wenn Sie das Array an eine HTML TextBox übergeben möchten, versuchen Sie dies.

Sub CreateArrayAndPassToHTMLTextbox() 
     Dim ie As Object 
     Dim arr As Variant 

     Const DELIMITER = "," 

     Set ie = CreateObject("InternetExplorer.Application") 

     ie.Visible = True 
     ie.navigate "http://home.arcor.de/peter.schleif/SearchForTDelement.html" 
     While ie.Busy: DoEvents: Wend 

     With ActiveSheet 
      arr = WorksheetFunction.Transpose(.Range(.[A1], .Cells(Rows.Count, "A").End(xlUp))) 
      If Not IsArray(arr) Then arr = Array(arr) 
      ie.document.getElementById("trackField").Value = Join(arr, DELIMITER) 
     End With 
    End Sub 

Wenn Sie beispielsweise Daten an eine ComboBox übergeben möchten, versuchen Sie dies.

Sub passValueToComboBox1() 
    Dim ie As Object 
    Dim oHTML_Element As IHTMLElement 

    Set ie = CreateObject("InternetExplorer.Application") 
    ie.Visible = True 
    ie.navigate "http://peterschleif.bplaced.net/excel/combobox/index.php" 
    While ie.Busy Or ie.readyState <> 4: DoEvents: Wend 

    Set oHTML_Element = ie.document.getElementsByName("selectedReportClass")(0) 
    If Not oHTML_Element Is Nothing Then oHTML_Element.Value = "com.db.moap.report.FUBU7" 

    For Each oHTML_Element In ie.document.getElementsByTagName("input") 
     If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For 
    Next 
End Sub 
Verwandte Themen