�ｽt�ｽ@�ｽC�ｽ�ｽ�ｽ�ｽ�ｽ�ｽi�ｽ�ｽ�ｽﾌ３�ｽj
�ｽO�ｽ�ｽﾍ、If�ｽ�ｽ�ｽ�ｽp�ｽ�ｽ�ｽﾄ「�ｽt�ｽ@�ｽC�ｽ�ｽ�ｽ�ｽ�ｽJ�ｽ�ｽ�ｽv�ｽﾛのエ�ｽ�ｽ�ｽ[�ｽｧ御し�ｽ�ｽ
�ｽﾝまゑｿｽ�ｽ�ｽ�ｽB�ｽﾋ然If�ｽ�ｽ�ｽ�ｽ�ｽo�ｽﾄゑｿｽ�ｽﾜゑｿｽ�ｽ�ｽ�ｽﾌでビ�ｽb�ｽN�ｽ�ｽ�ｽ�ｽ�ｽ黷ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ
�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽﾌではなゑｿｽ�ｽﾅゑｿｽ�ｽ蛯､�ｽ�ｽ(^_^;
�ｽ�ｽ�ｽ�ｽWeb�ｽﾍ難ｿｽ�ｽ蜿托ｿｽﾆ茨ｿｽ�ｽ�ｽﾄ行�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽﾎゑｿｽ�ｽ�ｽ�ｽ�ｽﾅゑｿｽ�ｽﾌで、�ｽ�ｽ
�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽﾌ抵ｿｽ�ｽﾅ新�ｽ�ｽ�ｽ�ｽ�ｽR�ｽ[�ｽh�ｽ�ｽ�ｽo�ｽﾄゑｿｽ�ｽ�ｽ�ｽ�ｽA�ｽ�ｽ�ｽ�ｽﾉつゑｿｽ�ｽﾄ会ｿｽ
�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽﾆゑｿｽ�ｽ�ｽ�ｽ�ｽ�ｽV�ｽX�ｽe�ｽ�ｽ�ｽﾉなゑｿｽ�ｽﾄゑｿｽ�ｽ�ｽﾜゑｿｽ(^_^;; �ｽﾌで、�ｽX�ｽ�ｽ
�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽﾜゑｿｽ�ｽﾜゑｿｽm(_ _)m
Sub File_Open()
ChDir "C:\WINDOWS\�ｽf�ｽX�ｽN�ｽg�ｽb�ｽv"
If Dir("Book1.xls") = "" then
MsgBox("�ｽt�ｽ@�ｽC�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽﾂゑｿｽ�ｽ�ｽﾜゑｿｽ�ｽ�ｽ")
Exit Sub
End if
Workbooks.Open Filename:= _
"C:\WINDOWS\�ｽf�ｽX�ｽN�ｽg�ｽb�ｽv\Book1.xls"
End Sub
�ｽ�ｽ�ｽﾌ擾ｿｽ�ｽ�ｽ�ｽ･まゑｿｽ�ｽﾜゑｿｽ�ｽﾄ、�ｽ�ｽ�ｽx�ｽﾍフ�ｽ�ｽ�ｽb�ｽs�ｽ[�ｽf�ｽB�ｽX�ｽN�ｽ�ｽ�ｽ�ｽf�ｽ[
�ｽ^�ｽ�ｽﾇみ出�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽP�ｽ[�ｽX�ｽﾉつゑｿｽ�ｽﾄ考�ｽ�ｽ�ｽﾄみまゑｿｽ�ｽ蛯､�ｽB
�ｽﾆりあ�ｽ�ｽ�ｽ�ｽDOS/V�ｽ}�ｽV�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ閧ｵ�ｽﾄ、�ｽt�ｽ�ｽ�ｽb�ｽs�ｽ[�ｽh�ｽ�ｽ�ｽC�ｽu�ｽ�ｽ
A �ｽﾆゑｿｽ�ｽﾜゑｿｽ�ｽ蛯､�ｽB�ｽi�ｽX�ｽW�ｽ}�ｽV�ｽ�ｽ�ｽﾌ場合�ｽﾍＣ�ｽ�ｽ�ｽﾈ）
�ｽ�ｽ�ｽ轤ｭ�ｽQ�ｽs�ｽﾚゑｿｽ�ｽ�ｽ�ｽ�ｽﾈふゑｿｽ�ｽﾉ擾ｿｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽﾎゑｿｽ�ｽ�ｽ�ｽﾅゑｿｽ�ｽ�ｽﾋ。
ChDir "A:\"
�ｽﾍゑｿｽ�ｽA�ｽm�ｽ�ｽ�ｽﾉ読み出�ｽ�ｽ�ｽﾜゑｿｽ�ｽ�ｽ�ｽB
�ｽﾅは、�ｽt�ｽ�ｽ�ｽb�ｽs�ｽ[�ｽ�ｽ�ｽ�ｽ�ｽo�ｽ�ｽ�ｽ�ｽ�ｽ�ｽﾔで趣ｿｽ�ｽs�ｽ�ｽ�ｽﾄみて会ｿｽ�ｽ�ｽ�ｽ�ｽ�ｽB
�ｽﾇゑｿｽ�ｽﾅゑｿｽ�ｽH�ｽG�ｽ�ｽ�ｽ[�ｽﾉなゑｿｽ�ｽ�ｽ�ｽﾅゑｿｽ�ｽ蛯､�ｽB
�ｽ�ｽ�ｽﾌよう�ｽﾉ、�ｽO�ｽ�ｽ�ｽ�ｽ�ｽf�ｽB�ｽA�ｽ�ｽ�ｽQ�ｽﾆゑｿｽ�ｽ�ｽﾝ抵ｿｽﾉなゑｿｽ�ｽﾄゑｿｽ�ｽ�ｽﾌに、
�ｽ�ｽ�ｽ黷ｪ�ｽg�ｽ�ｽ�ｽﾈゑｿｽ�ｽ�ｽﾔになゑｿｽ�ｽﾄゑｿｽ�ｽ�ｽﾆゑｿｽ�ｽA�ｽ�ｽ�ｽ驍｢�ｽﾍ読む撰ｿｽ�ｽ
�ｽt�ｽH�ｽ�ｽ�ｽ_�ｽ�ｽ�ｽﾆなゑｿｽ�ｽﾈゑｿｽ�ｽﾄゑｿｽ�ｽﾜゑｿｽ�ｽﾄゑｿｽ謔､�ｽﾈ場合�ｽ�ｽ�ｽﾆ、ChDir �ｽ�ｽ
�ｽ�ｽ�ｽs�ｽ�ｽ�ｽ�ｽ�ｽﾆゑｿｽ�ｽ�ｽﾉエ�ｽ�ｽ�ｽ[�ｽﾉなゑｿｽ�ｽﾄゑｿｽ�ｽﾜゑｿｽ�ｽﾜゑｿｽ�ｽB
�ｽ�ｽ�ｽx�ｽﾍゑｿｽ�ｽﾌエ�ｽ�ｽ�ｽ[�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽﾄみまゑｿｽ�ｽ蛯､�ｽB
Sub File_Open()
On Error Goto ErrorHandler
ChDir "A:\"
If Dir("Book1.xls") = "" then
MsgBox("�ｽt�ｽ@�ｽC�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽﾂゑｿｽ�ｽ�ｽﾜゑｿｽ�ｽ�ｽ")
Exit Sub
End if
Workbooks.Open Filename:= _
"A:\Book1.xls"
Exit Sub
ErrorHandler:
Msgbox("�ｽﾇみ搾ｿｽ�ｽﾝでゑｿｽ�ｽﾜゑｿｽ�ｽ�ｽ")
End
End Sub
�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽﾎどゑｿｽ�ｽﾅゑｿｽ�ｽ蛯､�ｽB�ｽt�ｽ�ｽ�ｽb�ｽs�ｽ[�ｽ�ｽ�ｽﾈゑｿｽ�ｽ�ｽ�ｽ�ｽ�ｽ鼾�ｿｽﾍ「�ｽﾇゑｿｽ
�ｽ�ｽ�ｽﾝでゑｿｽ�ｽﾜゑｿｽ�ｽ�ｽv�ｽﾌ�ｿｽ�ｽb�ｽZ�ｽ[�ｽW�ｽ�ｽ�ｽo�ｽﾄ、�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽI�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ謔､
�ｽﾉなゑｿｽﾜゑｿｽ�ｽ�ｽ�ｽB
�ｽﾅ、�ｽz�ｽ�ｽ�ｽg�ｽﾍゑｿｽ�ｽﾌ会ｿｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽﾅゑｿｽ�ｽ�ｽ�ｽﾇ、�ｽﾇ～�ｽ�ｽ�ｽ�ｽ�ｽﾗゑｿｽ
�ｽq�ｽh�ｽ�ｽ�ｽﾄ包ｿｽ�ｽﾍゑｿｽ�ｽ�ｽ�ｽ�ｽ�ｽﾜゑｿｽ�ｽ�ｽ(T_T)
�ｽﾆりあ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ�ｽﾜでゴ�ｽ�ｽ�ｽ�ｽ�ｽi�ｽT�ｽC�ｽ�ｽ )))) (^^;;
 |
 |
TOP �ｽ�ｽ �ｽu�ｽa�ｽ`�ｽﾅ�ｿｽ�ｽN�ｽ�ｽ�ｽ�ｽ�ｽ�ｽ �ｽ`Part 1�ｽ`