Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Word topic

Új hozzászólás Aktív témák

  • #1266 lasarus1988 tag lasarus1988 #1265
    Új Válasz #1266
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Privát üzenet küldése

    lasarus1988

    tag

    válasz lasarus1988 #1265 üzenetére

    Azt hiszem sikerült megoldani.

    Sub haliho()
    Dim xlApp As Excel.Application
    Dim xlWb As Excel.Workbook
    Dim LastRow As Integer
    Dim I As Integer

    Set xlApp = CreateObject("Excel.Application")

    Set xlWb = xlApp.Workbooks.Open("C:\Eredmények\22-november-2010_1_Init_TestData.csv")

    xlApp.Visible = True

    LastRow = xlWb.Worksheets(1).Range("A65535").End(xlUp).Row

    For I = 1 To LastRow

    Word.Application.ActiveDocument.Select

    Select Case xlWb.Worksheets(1).Cells(I, 1).Value
    Case "Mérés időpontja"
    Word.Selection.Bookmarks("MeasureTime").Range = xlWb.Worksheets(1).Cells(I, 2).Value
    Case "Mérőszemély"
    Word.Selection.Bookmarks("Engineer").Range = xlWb.Worksheets(1).Cells(I, 2).Value
    Case "Ügyiratszám"
    Word.Selection.Bookmarks("ProjectNumber").Range = xlWb.Worksheets(1).Cells(I, 2).Value
    Case "Hőmérséklet"
    Word.Selection.Bookmarks("Temperature").Range = xlWb.Worksheets(1).Cells(I, 2).Value
    Case "Páratartalom"
    Word.Selection.Bookmarks("Huminidity").Range = xlWb.Worksheets(1).Cells(I, 2).Value
    Case "Gyártó"
    Word.Selection.Bookmarks("Manufacturer").Range = xlWb.Worksheets(1).Cells(I, 2).Value
    Case "Típus"
    Word.Selection.Bookmarks("Type").Range = xlWb.Worksheets(1).Cells(I, 2).Value
    Case "Gyáriszám"
    Word.Selection.Bookmarks("SerialNumber").Range = xlWb.Worksheets(1).Cells(I, 2).Value
    Case "Minta száma"
    Word.Selection.Bookmarks("Sample").Range = xlWb.Worksheets(1).Cells(I, 2).Value
    End Select

    Next I

    xlWb.Close
    Set xlWb = Nothing

    xlApp.Quit
    Set xlApp = Nothing

    End Sub

    Így most tökéletesen működik, igaz a csv-ben nem pontosvessző a szeparátor hanem vessző. Ez nem akkora gond mert csak a hőmérsékletnél illetve a páratartalomnál használtam vesszőt, de majd kicserélem pontra.

Új hozzászólás Aktív témák