�}�N���ł������I �` Excel���pHomePage �`

�u�a�`���N������ �`Part 1�`

������̃R�[�i�[�ł́A�u�a�`�̎g�����𒆐S�ɂ��Љ�Ă����܂��B
��Ҏ��g�̌o�����珑���Ă���܂��̂ŁA�{�Ƃ��Ƃ͈�����R�g��
�����Ă�g�R�������邩������܂���B ���������ꍇ�́A�ǂ������ȕ���M���܂��傤(^_^;
TOP �� �u�a�`�Ń��N������ �`Part 1�` �� �t�@�C������i���̂R�j

�t�@�C������i���̂R�j


�O��́AIf����p���āu�t�@�C�����J���v�ۂ̃G���[�𐧌䂵��
�݂܂����B�ˑRIf�����o�Ă��܂����̂Ńr�b�N�����ꂽ������
�������̂ł͂Ȃ��ł��傤��(^_^;
����Web�͓��发�ƈ���čs��������΂�����ł��̂ŁA��
���������̒��ŐV�����R�[�h���o�Ă�����A����ɂ‚��ĉ�
��������Ƃ������V�X�e���ɂȂ��Ă���܂�(^_^;; �̂ŁA�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

���̏����𓥂܂��܂��āA���x�̓t���b�s�[�f�B�X�N����f�[
�^��ǂݏo�������P�[�X�ɂ‚��čl���Ă݂܂��傤�B

�Ƃ肠����DOS/V�}�V�������肵�āA�t���b�s�[�h���C�u��
A �Ƃ��܂��傤�B�i�X�W�}�V���̏ꍇ�͂b���ȁj
���炭�Q�s�ڂ�����Ȃӂ��ɏ��������΂����ł���ˁB

ChDir "A:\"

�͂��A�m���ɓǂݏo���܂����B
�ł́A�t���b�s�[�����o������ԂŎ��s���Ă݂ĉ������B

�ǂ��ł��H�G���[�ɂȂ����ł��傤�B
���̂悤�ɁA�O�����f�B�A���Q�Ƃ���ݒ�ɂȂ��Ă���̂ɁA
���ꂪ�g���Ȃ���ԂɂȂ��Ă���Ƃ��A���邢�͓ǂސ��
�t�H���_���ƂȂ��Ȃ��Ă��܂��Ă�悤�ȏꍇ���ƁAChDir ��
���s�����Ƃ���ɃG���[�ɂȂ��Ă��܂��܂��B
���x�͂��̃G���[��������Ă݂܂��傤�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�[���Ȃ������ꍇ�́u�ǂ�
���݂ł��܂���v�̃��b�Z�[�W���o�āA�������I������悤
�ɂȂ�܂����B

�ŁA�z���g�͂��̉����������������ł����ǁA�ǁ`�����ׂ�
�q�h���ĕ��͂������܂���(T_T)
�Ƃ肠��������܂ŃS�����i�T�C�� )))) (^^;;




TOP �� �u�a�`���N������ �`Part 1�`
Copyright (C) 2006 �}�N���ł������I. All Rights Reserved.