Public Sub MakeTextFile()
　Sheets("sheet1").Activate
　m = MsgBox("デスクトップ上にdata.txtというファイルを作成します。よろしいですか。", 1, "確認")
　If m = 2 Then Exit Sub
　fn = FreeFile
　Open "data.txt" For Output As #fn
　Print #fn, "0x0A 0x5C 0x3A 0x2C dsRecTypeStandard:Users ";
　x = 1
　st = Empty
　Do Until ActiveSheet.Cells(1, x).Value = Empty
　　st = st & "dsAttrTypeStandard:" & ActiveSheet.Cells(1, x).Value & " "
　　If x = 1 Then st = st & "dsAttrTypeStandard:AuthMethod "
　　x = x + 1
　Loop
　Print #fn, x & " " & st & Chr(10);
　y = 2
　x = x - 1
　Do Until ActiveSheet.Cells(y, "A").Value = Empty
　　st = Empty
　　For i = 1 To x
　　　st = st & ActiveSheet.Cells(y, i).Value
　　　If Not i = x Then st = st & ":"
　　　If i = 1 Then st = st & "dsAuthMethodStandard\:dsAuthClearText:"
　　Next
　Print #fn, st & Chr(10);
　y = y + 1
　Loop
　Close
End Sub