�t�@�C������i���̂Q�j
�O��́A�p�X�̐����ƃt�@�C�����J��VBA�R�[�h�ɂ��Č���
�݂܂������ǁA���e�̕��͂��������������܂������H(^^
����͂���ɂ����`���b�g������t�������Ă݂܂��ˁB
�O��̃R�[�h��
Sub File_Open()
ChDir "C:\WINDOWS\�f�X�N�g�b�v"
Workbooks.Open Filename:= _
"C:\WINDOWS\�f�X�N�g�b�v\Book1.xls"
End Sub
�Ƃ������̂ł����B
�ꌩ���Ȃ������Ɍ����܂��ˁB���H���Ⴀ������肪����
�́H�n�C�����Ȃ�ł��B�m���ɂ��̂܂܂ł����s����Ε���
�ɓ��삵�܂��B���A�����������Ŗ��Ȃ̂�"����̏ꏊ��
�t�@�C�����m���ɑ��݂��邱�Ƃ�O��Ƃ��č���Ă���"��
�������ƂȂ̂ł��B
�����ɓǂݏo���ׂ��t�@�C�����폜�Ȃ����͈ړ������āA����
���߂����s���Ă݂ĉ������B�ǂ��ł����H�G���[�Ŏ~�܂��Ă�
�܂��܂����ˁB�����Ȃ�Ȃ����߂̖��߂��P�lj����܂��傤�B
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
�悤�₭���̉�܂ł���"If ��"���o�ꂵ�Ă��܂����B
�Ȃ�ƂȂ����������Ƃ̂����������������Ǝv���܂����A��
��́u�������`�ł���`�����s�A�����łȂ���`�v�̂悤��
"��������"�����閽�߂Ȃ̂ł��B
���̏ꍇ�́u�������J�������t�@�C�����Ȃ�������`�v�Ƃ�����
�����������̂ŁA���̂悤�Ȍ`�ɂ��Ă����ł��B
If �` End If �̕�������{��ɖ�
"���������݂̃f�B���N�g����Book1.xls���Ȃ�������"
"�t�@�C����������܂���A��\��"
"���̏�������"
"If���̏I���"
�ƂȂ�܂��B
If���̍ŏ���Dir(" ") �̓t�@�C���̑��ׂ݂�̂ɂ悭�g��
�܂��B�����̕����ő厖�Ȃ̂́u�Ȃ�������v�Ƃ����̂f��
��̂� = "" �Ƃ����\����p���Ă��邱�Ƃł��B"�C�R�[����"
���Ȃ킿"�ł���"��"�Ȃ�"�Ƃ������ƂȂ�ł����A������
�肢�������܂�?(^_^;) ���̕\���͂悭�g���̂ł������藝������
���܂��傤�B
�Ō�ɁA�����Ŏg���� If ���̌`����������x
If �`�`�` then
�`A�`
�`B�`
End If
"�������`�`�`��������A
�`A�`�����s���A���Ɂ`B�`�����s����"
End If �� If���̏I���������܂��B�����ł́A"�`�`�`�łȂ�
��E�E�E"�Ƃ��������͍s�Ȃ��Ă��Ȃ��̂ŁA�����ɍ���Ȃ�
�ꍇ�͂�����End If�ȉ��̕������s���܂��B
�ƁA�����悤�Ȋ����ł����A�ǂ��ł��傤�A�������肢�������܂�
����?(^_^)
����̓��e�̒��Ő����s���̃g�R�����������܂�����A����
�w���v�����Q�Ɖ������܂��܂�(^_^;;
����ł͎���܂ŁA��������悤!
 |
 |
TOP �� �u�a�`���N������ �`Part 1�`