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

• #2435 G.I.JOE senior tag

  Új Válasz 2014-04-08 10:20:19 #2435

  Ú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

  

  G.I.JOE

  senior tag

  Helló!

  Csak ismerkedek a VB-el és szeretnék egy egyszerű progit írni, ami excelből egy tabulátoros unicode txt-t csinál. Nos, az unicode-dal is van gondom (OpenTextFileWriter), de a fő bajom az, hogy ha VStudioból indítom a progit, akkor lefut rendesen, de ha a generált exe-t indítom el és eljut az excel műveletekig, akkor az "Nincs elég szabad memória ..." hibaüzenettel leáll.

  Valami banális dolgot nem tudok?

  Dim xlApp As Excel.Application
  Dim xlWorkBook As Excel.Workbook
  Dim xlWorkSheet As Excel.Worksheet
  Dim munkakonyvtar As String = "c:\" 'itt a forras excel es ide generalja az eredmenyfilet
  Dim file = My.Computer.FileSystem.OpenTextFileWriter(munkakonyvtar + "test.txt", False) 'kimeneti file
  Dim munkalap As String = "Munka1" 'a használandó munkalap neve az excelben
  Dim sor As Integer = 6 'aktualis excel cella sorszama, kezdoertek az elso adat sor száma
  Dim oszlop As Integer = 2 'aktualis excel cella oszlop
  Dim cella As String = "" 'aktualis excel cella tartalma
  Dim MH_sor As String = "" 'aktualis sor a kimeneti fileba
  
  
  xlApp = New Excel.Application
  xlWorkBook = xlApp.Workbooks.Open(munkakonyvtar + "test1.xlsx")
  xlWorkSheet = xlWorkBook.Worksheets(munkalap)
  cella = xlWorkSheet.Cells(sor, 1).value
  Do While Len(Trim(cella)) > 0
  MH_sor = xlWorkSheet.Cells(sor, 2).value + Chr(9) + xlWorkSheet.Cells(sor, 3).value + Chr(9) + xlWorkSheet.Cells(sor, 4).value
  file.WriteLine(MH_sor)
  sor = sor + 1
  cella = xlWorkSheet.Cells(sor, 1).value
  Loop
  MsgBox("Kész!")
  
  xlWorkBook.Save()
  xlWorkBook.Close()
  xlApp.Quit()
  file.Close()
  releaseObject(xlApp)
  releaseObject(xlWorkBook)
  releaseObject(xlWorkSheet)

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