Merhaba,
Xml makrosunu çalıştırmaya kalktığımda Run-time error '76' Path not found hatası alıyorum debug basınca aşağıdaki makrodaki sarı dolgulu alana atıyor.
Konu ile ilgili yardımınızı rica ediyorum.
Sub IsgucuCizelgeGiris()
hata_yok = True
Call Input_Validation
If hata_yok Then
TAB1 = Chr$(9)
Open ActiveSheet.Range("D6").Value For Output As #1
If Err <> O Then
MsgBox ("Verilen Dosya Adı Hatalı. (Örnek: C:\EksikSaat.xml)")
Exit Sub
End If
xmlStr = "<?xml version=""1.0"" encoding=""iSO-8859-9""?>"
Print #1, xmlStr
xmlStr = TAB1 & "<ISGUCUCIZELGE XMLVERSION=" & """" & ActiveSheet.Range("B1").Value & """ "
xmlStr = xmlStr & ">"
Print #1, xmlStr
xmlStr = "<KISILER>"
Print #1, xmlStr
RowInd = BasSatir: PrevBC = "": PrevK = "": IlkGiris = True
ActiveSheet.Range("A" & Mid$(Str(RowInd), 2)).Select
Cizelge_Sira = 0
While ActiveCell.Value <> ""
TCKNO = ActiveSheet.Range("A" & Mid$(Str(RowInd), 2)).Value
AD = ActiveSheet.Range("B" & Mid$(Str(RowInd), 2)).Value
SOYAD = ActiveSheet.Range("C" & Mid$(Str(RowInd), 2)).Value
SOSYALDURUM = ActiveSheet.Range("D" & Mid$(Str(RowInd), 2)).Value
ISTIHDAMDURUMU = ActiveSheet.Range("E" & Mid$(Str(RowInd), 2)).Value
MESLEKKODU = ActiveSheet.Range("F" & Mid$(Str(RowInd), 2)).Value
ALINMAAYRILMATAR = ActiveSheet.Range("G" & Mid$(Str(RowInd), 2)).Value
ALINMAAYRILMADUR = ActiveSheet.Range("H" & Mid$(Str(RowInd), 2)).Value
ISTENCIKARMADUR = ActiveSheet.Range("I" & Mid$(Str(RowInd), 2)).Value
ALINMAAYRILMATAR = Format_Date(CDate(ALINMAAYRILMATAR))
Cizelge_Sira = Cizelge_Sira + 1
SIRA = Cizelge_Sira
xmlStr = TAB1 & TAB1
xmlStr = xmlStr & "<KISI SIRA=" & """" & SIRA & """ "
xmlStr = xmlStr & "TCKNO=" & """" & TCKNO & """ "
xmlStr = xmlStr & "AD=" & """" & AD & """ "
xmlStr = xmlStr & "SOYAD=" & """" & SOYAD & """ "
xmlStr = xmlStr & "SOSYALDURUM=" & """" & SOSYALDURUM & """ "
xmlStr = xmlStr & "ISTIHDAMDURUMU=" & """" & ISTIHDAMDURUMU & """ "
xmlStr = xmlStr & "MESLEKKODU=" & """" & MESLEKKODU & """ "
xmlStr = xmlStr & "ALINMAAYRILMATAR=" & """" & ALINMAAYRILMATAR & """ "
xmlStr = xmlStr & "ALINMAAYRILMADUR=" & """" & ALINMAAYRILMADUR & """ "
xmlStr = xmlStr & "ISTENCIKARMADUR=" & """" & ISTENCIKARMADUR & """ "
xmlStr = xmlStr & "/>"
Print #1, xmlStr
RowInd = RowInd + 1
ActiveSheet.Range("A" & Mid$(Str(RowInd), 2)).Select
Wend
xmlStr = "</KISILER>"
Print #1, xmlStr
xmlStr = TAB1 & "</ISGUCUCIZELGE>"
Print #1, xmlStr
Close #1
MsgBox ("XML dosyası hazırlandı.")
'
Else
MsgBox ("***Sıra:" + Str(Hata_Satir) + "***" + Hata_Mesaj)
End If
'
End Sub
Xml makrosunu çalıştırmaya kalktığımda Run-time error '76' Path not found hatası alıyorum debug basınca aşağıdaki makrodaki sarı dolgulu alana atıyor.
Konu ile ilgili yardımınızı rica ediyorum.
Sub IsgucuCizelgeGiris()
hata_yok = True
Call Input_Validation
If hata_yok Then
TAB1 = Chr$(9)
Open ActiveSheet.Range("D6").Value For Output As #1
If Err <> O Then
MsgBox ("Verilen Dosya Adı Hatalı. (Örnek: C:\EksikSaat.xml)")
Exit Sub
End If
xmlStr = "<?xml version=""1.0"" encoding=""iSO-8859-9""?>"
Print #1, xmlStr
xmlStr = TAB1 & "<ISGUCUCIZELGE XMLVERSION=" & """" & ActiveSheet.Range("B1").Value & """ "
xmlStr = xmlStr & ">"
Print #1, xmlStr
xmlStr = "<KISILER>"
Print #1, xmlStr
RowInd = BasSatir: PrevBC = "": PrevK = "": IlkGiris = True
ActiveSheet.Range("A" & Mid$(Str(RowInd), 2)).Select
Cizelge_Sira = 0
While ActiveCell.Value <> ""
TCKNO = ActiveSheet.Range("A" & Mid$(Str(RowInd), 2)).Value
AD = ActiveSheet.Range("B" & Mid$(Str(RowInd), 2)).Value
SOYAD = ActiveSheet.Range("C" & Mid$(Str(RowInd), 2)).Value
SOSYALDURUM = ActiveSheet.Range("D" & Mid$(Str(RowInd), 2)).Value
ISTIHDAMDURUMU = ActiveSheet.Range("E" & Mid$(Str(RowInd), 2)).Value
MESLEKKODU = ActiveSheet.Range("F" & Mid$(Str(RowInd), 2)).Value
ALINMAAYRILMATAR = ActiveSheet.Range("G" & Mid$(Str(RowInd), 2)).Value
ALINMAAYRILMADUR = ActiveSheet.Range("H" & Mid$(Str(RowInd), 2)).Value
ISTENCIKARMADUR = ActiveSheet.Range("I" & Mid$(Str(RowInd), 2)).Value
ALINMAAYRILMATAR = Format_Date(CDate(ALINMAAYRILMATAR))
Cizelge_Sira = Cizelge_Sira + 1
SIRA = Cizelge_Sira
xmlStr = TAB1 & TAB1
xmlStr = xmlStr & "<KISI SIRA=" & """" & SIRA & """ "
xmlStr = xmlStr & "TCKNO=" & """" & TCKNO & """ "
xmlStr = xmlStr & "AD=" & """" & AD & """ "
xmlStr = xmlStr & "SOYAD=" & """" & SOYAD & """ "
xmlStr = xmlStr & "SOSYALDURUM=" & """" & SOSYALDURUM & """ "
xmlStr = xmlStr & "ISTIHDAMDURUMU=" & """" & ISTIHDAMDURUMU & """ "
xmlStr = xmlStr & "MESLEKKODU=" & """" & MESLEKKODU & """ "
xmlStr = xmlStr & "ALINMAAYRILMATAR=" & """" & ALINMAAYRILMATAR & """ "
xmlStr = xmlStr & "ALINMAAYRILMADUR=" & """" & ALINMAAYRILMADUR & """ "
xmlStr = xmlStr & "ISTENCIKARMADUR=" & """" & ISTENCIKARMADUR & """ "
xmlStr = xmlStr & "/>"
Print #1, xmlStr
RowInd = RowInd + 1
ActiveSheet.Range("A" & Mid$(Str(RowInd), 2)).Select
Wend
xmlStr = "</KISILER>"
Print #1, xmlStr
xmlStr = TAB1 & "</ISGUCUCIZELGE>"
Print #1, xmlStr
Close #1
MsgBox ("XML dosyası hazırlandı.")
'
Else
MsgBox ("***Sıra:" + Str(Hata_Satir) + "***" + Hata_Mesaj)
End If
'
End Sub