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

• #1267 Fire/SOUL/CD félisten lasarus1988 #1266

  Új Válasz 2010-11-24 12:42:23 #1267

  Ú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

  

  Fire/SOUL/CD

  félisten

  válasz lasarus1988 #1266 üzenetére

  Na remek, mire gépközelbe jutottam, már írtál egy megoldást, gratula.
  De ha már én is megírtam, akkor beteszem a kódot, más megközelítésben készült, talán vannak olyan megoldások benne, ami mások számára is hasznos lehet.
  ("Alakítsd át" sima SUB-bá, mert ez most egy parancsgombhoz van rendelve)

  Private Sub CommandButton1_Click()
  
  Const NumberOfRowInCSV As Integer = 9
  Dim MyCSVFilename As String
  Dim x() As String
  Dim temp As String
  
  MyBookmarks = Array("MeasureTime", "Engineer", "ProjectNumber", "Temperature", _
  "Huminidity", "Manufacturer", "Type", "SerialNumber", "Sample")
  
  On Error Resume Next
  MyCSVFilename = ""
  With Application.FileDialog(FileDialogType:=msoFileDialogFilePicker)
  .AllowMultiSelect = False
  .Title = "Kérem válasszon egy CSV fájlt..."
  .Filters.Clear
  .Filters.Add Description:="CSV fájlok (*.csv)", Extensions:="*.csv"
  .Show
  MyCSVFilename = .SelectedItems(1)
  End With
  If MyCSVFilename = "" Then Exit Sub
  
  Word.ActiveDocument.Select
  
  fnum = FreeFile()
  Open MyCSVFilename For Input As fnum
  For I = 0 To NumberOfRowInCSV - 1
  Line Input #fnum, temp
  x = Split(temp, ";")
  Word.Selection.Bookmarks(MyBookmarks(I)).Range = x(1)
  Next I
  Close #fnum
  
  End Sub

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