Merhaba
Arkadaşlar macroyu çalıştırdığımda runtime error 53 hatası alıyorum.
Bu konuyu bu forumda ve internette araştırdım ama sonuç bulamadım. Aynı problemle ilgili cevap bekleyenlerde var sanırım.
Dikkatimi çeken aşağıdaki macroyu daha önce çalıştırdığım halde 1 haftadır birşey oldu hata veriyor. Acaba koddamı problem var diye düşündüm ama forumda yayınlanan bir iki örneği daha yaptım onlarda çalışmadı.
Diğer örnek makrolardada aynı şekilde dosya açma macrosunda hata veriyor.
Yardımcı olursanız çok sevinirim.
kodlar uzun olduğu için hepsini yazmadım.
Dim hata_yok As Boolean
Dim Hata_Mesaj As String
Dim Hata_Satir As Integer
Dim Sigortalı_Sira As Integer
Const SigBasSatir As Integer = 6
Sub XML_Hazirla()
Dim xmlStr As String
Dim TAB1 As String
TAB1 = Chr$(9)
'On Error Resume Next
hata_yok = True
If hata_yok Then
Open ActiveSheet.Range("H700").Value For Output As #1
If Err <> O Then
MsgBox ("Verilen Dosya Adı Hatalı. (Örnek: c:\ALINAN SİPARİŞLER.xml)")
Exit Sub
End If
xmlStr = "<?xml version=""1.0"" encoding=""ISO-8859-9""?>"
Print #1, xmlStr
xmlStr = "<SALES_ORDERS>"
Print #1, xmlStr
xmlStr = TAB1 & "<ORDER_SLIP DBOP=""INS"" ><NUMBER>" & ActiveSheet.Range("H703").Value & "</NUMBER><DATE>" & ActiveSheet.Range("H702").Value & "</DATE><ARP_CODE>" & ActiveSheet.Range("H701").Value & "</ARP_CODE><ORDER_STATUS>4</ORDER_STATUS><CURRSEL_TOTAL>1</CURRSEL_TOTAL><TRANSACTIONS>"
Print #1, xmlStr
Arkadaşlar macroyu çalıştırdığımda runtime error 53 hatası alıyorum.
Bu konuyu bu forumda ve internette araştırdım ama sonuç bulamadım. Aynı problemle ilgili cevap bekleyenlerde var sanırım.
Dikkatimi çeken aşağıdaki macroyu daha önce çalıştırdığım halde 1 haftadır birşey oldu hata veriyor. Acaba koddamı problem var diye düşündüm ama forumda yayınlanan bir iki örneği daha yaptım onlarda çalışmadı.
Diğer örnek makrolardada aynı şekilde dosya açma macrosunda hata veriyor.
Yardımcı olursanız çok sevinirim.
kodlar uzun olduğu için hepsini yazmadım.
Dim hata_yok As Boolean
Dim Hata_Mesaj As String
Dim Hata_Satir As Integer
Dim Sigortalı_Sira As Integer
Const SigBasSatir As Integer = 6
Sub XML_Hazirla()
Dim xmlStr As String
Dim TAB1 As String
TAB1 = Chr$(9)
'On Error Resume Next
hata_yok = True
If hata_yok Then
Open ActiveSheet.Range("H700").Value For Output As #1
If Err <> O Then
MsgBox ("Verilen Dosya Adı Hatalı. (Örnek: c:\ALINAN SİPARİŞLER.xml)")
Exit Sub
End If
xmlStr = "<?xml version=""1.0"" encoding=""ISO-8859-9""?>"
Print #1, xmlStr
xmlStr = "<SALES_ORDERS>"
Print #1, xmlStr
xmlStr = TAB1 & "<ORDER_SLIP DBOP=""INS"" ><NUMBER>" & ActiveSheet.Range("H703").Value & "</NUMBER><DATE>" & ActiveSheet.Range("H702").Value & "</DATE><ARP_CODE>" & ActiveSheet.Range("H701").Value & "</ARP_CODE><ORDER_STATUS>4</ORDER_STATUS><CURRSEL_TOTAL>1</CURRSEL_TOTAL><TRANSACTIONS>"
Print #1, xmlStr