Am si eu un cod macro pentru a trece din excel in txt niste date intr-un anumit format. Acum am trecut la excel 2019 cu 64 biti, problema e ca imi executa partial codul si anume la datele nou aduse imi aduce doar judetul si adresa, in rest celelalte date necesare pentru a identifica partenerul nu mi le vede, a mers si cu excel 2003 si cu 2010 si cu 2013 acum cu trecerea la 2019 ma trezesc ca nu resusec sa fac trecerea din excel in txt. Ce anume ar trebui sa verific ca sa scap de acesta ciudatenie. In excel am 689 linii si ultima executata este linia 578, am incercat sa copiez liniile noi si sa le inserez inainte de aceasta linie la fel imi face, insa doar la id partener si la denumire partener.
Codul pe care il folosesc este urmatorul:
Sub Articole_Noi()
'inainte sa il rulezi trebuie sa mergi la:
'Tools -> References si sa bifezi "Microsoft Scripting Runtime"
'declaratii variabile utilizate
Dim FSO As FileSystemObject
Dim FSOFile As TextStream
Dim FilePath As String
Dim NoOfLoop As Integer
'fisierul in care scriem
FilePath = "C:\Zconsum\Copiezi_in_Server\Articole.txt"
Set FSO = New FileSystemObject
'deschidem fisierul pentru scriere
Set FSOFile = FSO.OpenTextFile(FilePath, 2, True)
'parcurgem sheetul
For NoOfLoop = 2 To ActiveSheet.UsedRange.Rows.Count
FSOFile.WriteLine ("[ArticoleNoi_" & UCase(ActiveSheet.Cells(NoOfLoop, 26) & ActiveSheet.Cells(NoOfLoop, 5)) & "]")
FSOFile.WriteLine ("Denumire=" & ActiveSheet.Cells(NoOfLoop, 6))
FSOFile.WriteLine ("Serviciu=N")
FSOFile.WriteLine ("ContServiciu=")
FSOFile.WriteLine ("GestiuneImplicita=" & ActiveSheet.Cells(NoOfLoop, 16))
FSOFile.WriteLine ("Clasa=" & ActiveSheet.Cells(NoOfLoop, 23))
FSOFile.WriteLine ("PretVanzare=")
FSOFile.WriteLine ("TvaInclus=")
FSOFile.WriteLine ("ProcTVA=" & ActiveSheet.Cells(NoOfLoop, 9))
FSOFile.WriteLine ("ZeroCuDeducere=")
FSOFile.WriteLine ("TipSerie=" & ActiveSheet.Cells(NoOfLoop, 24))
FSOFile.WriteLine ("TipContabil=" & ActiveSheet.Cells(NoOfLoop, 22))
FSOFile.WriteLine ("TipPret=" & ActiveSheet.Cells(NoOfLoop, 25))
FSOFile.WriteLine ("")
Next NoOfLoop
'inchidem fisierul
FSOFile.Close
'daca nu reusesti sa modifici prin asta, nu intelegi ceva sau nu merge, ma suni
'afisare mesaj terminare generare fisiere
MsgBox ("Gata fisierul de Articole e generat. Copiaza in Server!!!")
End Sub
Macro partial functional
Re: Macro partial functional
Imi raspund tot singur, 2 restarturi la pc si s-a rezolvat de la sine problema. La primul restart acelasi comportament, insa al doilea restart a fost cu shut down si se pare ca a fost de bun augur ca a acuma merge si macroul, nu imi explic ce anume s-a intamplat insa e bine ca s-a rezolvat repede.