Vbscript zum import von csv in excel

Ich würde gerne ein VBSript öffnen einer csv von unterschiedlichen Zeilen und Spalten und fügen Sie Sie beginnend bei Zeile 4 Spalte 1. So weit das, was ich geschrieben habe, ist langsam und hat die Anzahl der Spalten hart codiert in es.

Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(wscript.Arguments(0))
objExcel.Visible = True
objExcel.Cells(1, 4).Value = wscript.Arguments(1)+" - "+wscript.Arguments(2)
objExcel.Cells(2, 4).Value = wscript.Arguments(3)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile (wscript.Arguments(4))
cCount = 1
rCount = 4

Do While objTextFile.AtEndOfStream <> True
        arrUserRecord = split(objTextFile.Readline, ",")
        Do While cCount<213
            objExcel.Cells(rCount, cCount).Value = arrUserRecord(cCount-1)
            cCount=cCount+1
        Loop
        cCount=1
        rCount=1+rCount
Loop
InformationsquelleAutor user1697891 | 2012-10-18
  1. 4

    Excel kann ziemlich allem, was es akzeptiert als "gültig " CSV". Ich musste greifen, um die folgenden, auf mehrere Gelegenheiten:

    Const vbFormatStandard = 1
Const vbFormatText     = 2
Const vbFormatDate     = 4

Const xlDelimited      = 1
Const xlDoubleQuote    = 1

' change according to number/type of the fields in your CSV
dataTypes = Array( Array(1, vbFormatText) _
  , Array(2, vbFormatStandard) _
  , Array(3, vbFormatText) _
  , Array(4, vbFormatDate) _
  )

Set xl = CreateObject("Excel.Application")
xl.Visible = True

xl.Workbooks.OpenText "input.csv", , , xlDelimited, xlDoubleQuote, False _
  , False, True, , , , dataTypes
Set wb = xl.ActiveWorkbook
    • +1 gute Technik (alternativ zu schema.ini) und die Durchführung.
    InformationsquelleAutor Ansgar Wiechers
  2. 1

    Wenn Ihr eine gültige CSV-Datei in Excel öffnen Sie es direkt. So einfach schreiben Sie Ihre VBscript zu erzählen Excel zu öffnen, die CSV-Datei als ob es eine Arbeitsmappe. Dann können Sie kopieren die Daten aus der Arbeitsmappe in der Arbeitsmappe.

    Wenn Sie nicht wissen, wie Sie dies tun, dann VBA ist der beste Weg, aber Sie sollten in der Lage sein, zu verhöhnen, als es in VBscript als auch. Hier ist, was ich denke, sollte es so Aussehen, obwohl ich Sie nicht testen kann um sicher zu sein:

    Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Open(wscript.Arguments(0))
objExcel.Visible = True
objExcel.Cells(1, 4).Value = wscript.Arguments(1) + " - " + wscript.Arguments(2)
objExcel.Cells(2, 4).Value = wscript.Arguments(3)

Set objWorksheet = objWorkbook.ActiveSheet

Set objWbkCsv = objExcel.Workbooks.Open(wscript.Arguments(4))
Set objWksCsv = objWbkCsv.Worksheets(1)
Set objRangeSource = objWksCsv.UsedRange

cCount = objRangeSource.Columns.Count
rCount = objRangeSource.Rows.Count + (4 - 1)
Set objRangeDest = objWorksheet.Range(objWorksheet.Cells(4, 1), objWorksheet.Cells(rCount, cCount))

objRangeSource.Copy objRangeDest
    • Was ist der beste Weg, um kopieren Sie ganze excel-Datei und fügen Sie es in andere excel-Datei, beginnend bei Zeile 4?
    • Die objRangeSource sollte eingerichtet werden, mit objWksCsv.UsedRange (und nicht alle Zellen).
    • guter Punkt, habe ich mir vorgenommen, dass zu ändern.
    • Excel wäre nicht unbedingt öffnen eine "gültige CSV" - Datei 'cuz es verwendet das Listentrennzeichen von Gebietsschema-Einstellungen statt Komma. OpenText ist der richtige Weg.
    InformationsquelleAutor RBarryYoung
Schreibe einen Kommentar