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

• #1255 Fire/SOUL/CD félisten Fire/SOUL/CD #1254

  Új Válasz 2010-11-23 12:15:11 #1255

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

  Áááá, a kódot meg kihagytam... Szóval a CSV megnyitásához (vesszővel tagolt, első sortól, szövegek nincsenek idézőjelek közt stb) a makrokód (természetesen ez csak Exceleben műxik)

  Private Sub CommandButton1_Click()
  
  Dim MyObj
  Set MyObj = CreateObject("EXCEL.APPLICATION")
  
  With MyObj
  .Workbooks.OpenText Filename:="d:\mytb.csv", origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, _
  TextQualifier:=xlNone, Semicolon:=False, Comma:=True, Space:=False, _
  FieldInfo:=Array(1, 1)
  
  .Visible = True
  .Cells.Select
  .Cells.EntireColumn.AutoFit
  End With
  
  Set MyObj = Nothing
  
  End Sub

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