�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�`