Excel��Bing Maps��}�����AGoogle Places API�Ŏ擾�����Z������X�܂̕��z�n�}���쐬�FVBA�^�}�N���֗�Tips�i1/3 �y�[�W�j

�A�ږڎ�

���{Tips�̊‹��FWindows 8.1 Enterprise�i64�r�b�g�j�{Excel 2013

2�‚�Web API�𗘗p

�@����́AExcel���Bing Maps��\�����AGoogle Places API�𗘗p���āA�w�肵���Z�����甼�a1Km�͈͓��ɂ���u�R���r�j�G���X�X�g�A�v��\������Tips���Љ��B

�@����Љ��T���v���́AExcel VBA�ł�Web API�̗��p���”\�ŁABing Maps��ɊY������{�݂̏ꏊ��\���ł��邱�Ƃ��������̂��B���ꂾ���ł��A���Ȃ���ɗ��‚̂ł͂Ȃ����Ǝv���B

�@�����2�‚�Web API�𗘗p����B��‚́uGeocoding API�v�ŁA�ڍׂ͉��L��URL���Q�Ƃ��Ăق����B

• http://www.geocoding.jp/api/

�@������‚́uGoogle Places API�v���g�p����B������g�p����ɂ́uAPI�L�[�v���擾����K�v������B

Google Places API�L�[�̎擾

�@Google apis�ɃA�N�Z�X���AGoogle�A�J�E���g�Ń��O�C������i�}1�j�BGoogle�̃A�J�E���g���擾����Ă��Ȃ����́A�܂��́uGoogle�A�J�E���g�̍쐬�v����A�A�J�E���g�̍쐬���s���K�v������B

�}1�@Google apis�ւ̓����̉��

�@�M�҂̏ꍇ�́A���łɑS�Ă̐ݒ���������Ă���̂ŁA���̉�ʁi�}2�`�}4�j���\�������B

�@�܂��A���߂�Google apis�𗘗p����ꍇ�ɂ́uReview terms of service�v�i���p�K��j���\������邽�߁A�K��̓��e���m�F���A�uI agree to these terms.�v�i�K��ɓ��ӂ���j�̃`�F�b�N�����uAccept�v�{�^�����N���b�N����K�v������B

�}2�@Google apis�̉��

�@�����̃��j���[����uAPIs & auth�v���N���b�N���A�\�������uApIs�v���N���b�N����B�uPlaces API�v�́uStatus�v��ON�ɂ���i�}3�j�B

�@������A���߂ė��p����ꍇ�ɂ́A�uRegister your organization�v(�g�D���̓o�^)�|�b�v�A�b�v���\������邽�߁A��Ђ�g�D�̖��O��Web�T�C�g��URL����͂��uSubmit�v�{�^�����N���b�N����K�v������B

�@����ɁA�uPlaces API�v��Status��L���ɂ��邽�߂ɂ́uGoogle Maps/Google Earth APIs�v�́uReview terms of service�v(���p�K��)���\������邽�߁A�K��̓��e���m�F���A�uI agree to these terms.�v(�K��ɓ��ӂ���)�̃`�F�b�N�����uAccept�v�{�^�����N���b�N����K�v������B

�}3�@�uPlaces API�v��Status��ON�ɂ���

�@�����̃��j���[����uAPI & auth�v��W�J���ĕ\�������uCredentials�v���N���b�N����BAPI�L�[�́A�uKey for blowser applications�v���ɕ\������Ă���i�}4�j�B

�}4�@API�L�[���\�����ꂽ�B��؂ɕۊǂ��Ă����K�v������

�@�ȏ�ŁA�uAPI�L�[�v�̎擾�͊������B

�@�uPlaces API�v��1���̃A�N�Z�X��1000��܂łɐ�������Ă���B����ȏ�̃A�N�Z�X�����‚���ꍇ�́A�N���W�b�g�J�[�h�̓o�^���K�v�ɂȂ�B�o�^�������1���̃A�N�Z�X��10����܂ʼn”\�ɂȂ�B

�@VBA�Ŏg�p�������ɂ����ẮA1��1000��̃A�N�Z�X�Ŗ��Ȃ����낤�B1��1000��̃A�N�Z�X���I�[�o�[����ƁA�f�[�^���\������Ȃ��Ȃ�B�����������m�W�����Ԃœ����ς��ƁA�Ăуf�[�^�͕\�������悤�ɂȂ�B

�@�A�N�e�B�u�V�[�g��ɁA�u�Z���ƃR���r�j���v��\������Z���ƁA�u�Z���v����͂���Z���ƁAExcel���j���[�́m�}���n���m�}�`�n����u�p�ێl�p�`�v��z�u���A�u���s�v�{�^���Ƃ��Ă����i�}5�j�B

�}5�@�u�Z���ƃR���r�j���v��\������Z���Ɓu�Z���v����͂���Z���A�u���s�v�{�^����z�u����

�Q�Ɛݒ�

�@�R�[�h���L�q����O��VBE�iVisual Basic Editor�j�̃��j���[����A�Q�Ɛݒ�����Ă����K�v������B

�@����́A�uMSXML2.XMLHTTP�v�uMSXML2.DOMDocument�v���g�p���邽�߁AVBE���j���[�́m�c�[���n���m�Q�Ɛݒ�n����uMicrosoft XML,v3.0�v���Q�Ƃ��Ă����K�v������i�}6�j�B

�}6�@�u�Q�Ɛݒ�v����uMicrosoft XML,v3.0�v���Q�Ƃ��Ă���