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

• #1260 lasarus1988 tag Fire/SOUL/CD #1259

  Új Válasz 2010-11-23 16:10:18 #1260

  Ú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 Fire/SOUL/CD #1259 üzenetére

  Csv tartalma:
  Mérés ideje; 2010.11.22. 16:07:12
  Mérést végezte; Gipsz Jakab
  Ügyiratszám; 12345
  Hőmérséklet; 23.1
  Páratartalom; 45,1
  Gyártó; Valami
  Típus; Valami
  Gyáriszám; QWERTZ123456
  Minta száma; 1

  Jelenleg ezzel a kóddal próbálkozom, a kiemelt résznél áll meg 'subscript out of range' hibával
  Sub Megnyit()
  Dim WordApp As Word.Application
  Dim WordDoc As Word.Document
  Dim ExcelApp As Excel.Application
  Dim ExcelDoc As Excel.Workbook
  Dim FilePath As Variant
  Dim LastRow As Double
  Dim I
  Dim InputData
  
  Set WordApp = CreateObject("Word.Application")
  FilePath = Application.GetOpenFilename("Mérési eredmények (*.doc), *.doc", , "Válassza ki az importálnadó fájlt!", , False)
  WordApp.Visible = True
  Set WordDoc = WordApp.Documents.Open(FilePath)
  
  FilePath = Application.GetOpenFilename("Mérési eredmények (*.csv), *.csv", , "Válassza ki az importálnadó fájlt!", , False)
  Shell "excel.exe " & FilePath, vbNormalFocus
  
  For I = 1 To 10
  
  [B] Application.Windows("22-november-2010_1_Init_TestData").Activate
  InputData = Application.Windows(1).Sheets(1).Range("A1").Value[/B]
  
  Select Case InputData
  Case "Mérés időpontja"
  WordDoc.Bookmarks("MeasureTime").Select
  WordDoc.Bookmarks("MeasureTime").Range = Cells(I, 2)
  Case "Mérőszemély"
  WordDoc.Bookmarks("Engineer").Select
  WordDoc.Bookmarks("Engineer").Range = Cells(I, 2)
  Case "Ügyiratszám"
  WordDoc.Bookmarks("ProjectNumber").Select
  WordDoc.Bookmarks("ProjectNumber").Range = Cells(I, 2)
  Case "Hőmérséklet"
  WordDoc.Bookmarks("Temperature").Select
  WordDoc.Bookmarks("Temperature").Range = Cells(I, 2)
  Case "Páratartalom"
  WordDoc.Bookmarks("Huminidity").Select
  WordDoc.Bookmarks("Huminidity").Range = Cells(I, 2)
  Case "Gyártó"
  WordDoc.Bookmarks("Manufacturer").Select
  WordDoc.Bookmarks("Manufacturer").Range = Cells(I, 2)
  Case "Típus"
  WordDoc.Bookmarks("Type").Select
  WordDoc.Bookmarks("Type").Range = Cells(I, 2)
  Case "Gyáriszám"
  WordDoc.Bookmarks("SerialNumber").Select
  WordDoc.Bookmarks("SerialNumber").Range = Cells(I, 2)
  Case "Minta száma"
  WordDoc.Bookmarks("Sample").Select
  WordDoc.Bookmarks("Sample").Range = Cells(I, 2)
  End Select
  
  Next I
  
  Set WordDoc = Nothing
  Set WordApp = Nothing
  Set ExcelApp = Nothing
  Set ExcelDoc = Nothing
  
  End Sub

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