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

• #2642 G.I.JOE senior tag martonx #2641

  Új Válasz 2015-10-12 10:09:26 #2642

  Ú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

  válasz martonx #2641 üzenetére

  Konkrétan a form sem jön még be.

• #2640 G.I.JOE senior tag

  Új Válasz 2015-10-12 08:24:07 #2640

  Ú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

  Sziasztok!

  VB-ben csináltam egy programot (.net3.5) és szeretném egy másik gépen is futtatni, de mindig csak azt írja ki, hogy hibát észlelt és leáll! Semmi extra nincs benne, form, xls-ből olvasás és txt-be írás. A célgépen fent van a .Net 3.5. A \bin-ből szedtem az exe-t. Telepíteni nem tudok, mert a másik gépen nincs adminom..

• #2437 G.I.JOE senior tag martonx #2436

  Új Válasz 2014-04-08 10:47:33 #2437

  Ú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

  válasz martonx #2436 üzenetére

  Áhh, gép bekapcsolás utáni első indításkor is ezt írja ki.

  Usinggal hogyan kellene?

• #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