Translate posts to Experimental | Feedback
Google
Official Google Earth Download Site
Page 1 of 2 1 2 >
Topic Options
Rate This Topic
Previous Topic
View All Topics Index
Next Topic
#852526 - 05/24/07 03:05 AM Excel/OO data to kml (unicode, folders and...
tekgergedan Moderator Offline
Master Guide

Registered: 09/25/05
Posts: 8300
Loc: Turkey GMT+2
...extensive kml support including the timeline)
  • Creation of grids
  • Creation of statistical bars (1 to infinite edges)
  • Paths and polygons with their styles
  • Nesting folders
  • Flexible application of the time stamps
  • Ability to tune placemarks, paths, polygons, and other features if there is a shift in the image in GE
  • Ground overlays and screen overlay
  • DMS support for lats and longs
  • Address entry instead of lats and longs
  • Use of formulations on the spreadsheet

xls2kml, ods2kml, and two more tools

Visit HERE for the old-time discussions in our Support forum.

Top
#852527 - 09/20/07 08:07 PM Re: Excel data to kml (unicode, folders and... [Re: tekgergedan]
tekgergedan Moderator Offline
Master Guide

Registered: 09/25/05
Posts: 8300
Loc: Turkey GMT+2

Top
#1242507 - 07/21/09 08:39 AM Re: Excel data to kml (unicode, folders and... [Re: tekgergedan]
vorley Offline
Traveler

Registered: 03/18/08
Posts: 2
Does the Excel to KML workbook support the <gx:balloonVisibility> tag. As I understand it this ensures that the balloon is open when the file loads in Google Earth.

Or is there an alternative way of achieving this?

Thanks.

Top
#1242651 - 07/21/09 04:41 PM Re: Excel data to kml (unicode, folders and... [Re: vorley]
tekgergedan Moderator Offline
Master Guide

Registered: 09/25/05
Posts: 8300
Loc: Turkey GMT+2
<gx:balloonVisibility> has been introduced lately. There are a lot of features not included in that version. However, most of them can be done by editing the macro. For <gx:balloonVisibility>, try this:

- Enter an ID for the placemark whose balloon you want to open. For instance, set "visball" (without quotes) as the ID. Be sure row 3 for the ID column is not empty.

- Switch to the macro (Alt-F11)

- First, since it is a kml update in question, you need to find
<kml xmlns=""http://earth.google.com/kml/2.1"">
and replace it with
<kml xmlns=""http://www.opengis.net/kml/2.2"" xmlns:gx=""http://www.google.com/kml/ext/2.2"">

- Find the line A.WriteLine ("<Point>")

- Add this code above it:
if varPlcmrkID="visball" then A.WriteLine ("<gx:balloonVisibility>1</gx:balloonVisibility>")

Hope that helps
_________________________
...
...
what you are is what you eat and what you think ...
...
Install 5.1 and be aware you can switch back ...
...
some help :: more help :: further help :: advanced help :: interactive help ...
...
developer help :: elf help :: full help ...

Top
#1242731 - 07/22/09 01:30 AM Re: Excel data to kml (unicode, folders and... [Re: tekgergedan]
vorley Offline
Traveler

Registered: 03/18/08
Posts: 2
Thanks, I suspected that I needed to do something like that. What I had not thought through was the link to the ID.

Cheers.

Top
#1260475 - 09/17/09 05:45 AM Re: Excel/OO data to kml (unicode, folders and... [Re: tekgergedan]
Bernard1918 Offline
New Poster

Registered: 03/16/09
Posts: 1
Hi,
excellent tool, thanks for it. I'm wondering if you could tell me how to amend the code so that I can add a column to regulate the size of the icon according to a specific value.

Thanks, I'm quite a newbie to this VBA so appreciate your help.

Bernard

Top
#1266190 - 10/07/09 01:17 PM Re: Excel/OO data to kml (unicode, folders and... [Re: Bernard1918]
tekgergedan Moderator Offline
Master Guide

Registered: 09/25/05
Posts: 8300
Loc: Turkey GMT+2
Hi Bernard,

Please download the new version. Now it is able to resize the icons. Can you also verify if it works fine? Hopefully, it won't produce an error because of the decimal point which is comma with me.

Vorley, please feel free to let me know anything further you are in need of.
_________________________
...
...
what you are is what you eat and what you think ...
...
Install 5.1 and be aware you can switch back ...
...
some help :: more help :: further help :: advanced help :: interactive help ...
...
developer help :: elf help :: full help ...

Top
#1266419 - 10/08/09 03:00 AM Re: Excel/OO data to kml (unicode, folders and... [Re: tekgergedan]
archisurveys Offline
Traveler

Registered: 09/11/06
Posts: 3
Thanks for the new version, it works well.
I was trying to work through this problem only yesterday,
and I was just changing the scale in the VBA code.
Another problem I was having is the scale of the label.

I am producing a google earth map of a water network consumer database using your code (thank you very much)
There are 800 to 1000 points to map, I am currently producing the file (3.5mb) and changing the style in GE to reduce the label size to zero, however I would prefer if the code produced the kml.

Is this possible.
Best Regards
Shane
inshoresurveys at gmail.com

Top
#1266443 - 10/08/09 05:15 AM Re: Excel/OO data to kml (unicode, folders and... [Re: archisurveys]
tekgergedan Moderator Offline
Master Guide

Registered: 09/25/05
Posts: 8300
Loc: Turkey GMT+2
I refrain from frequent updates because it prompts a message for new versions that can be a headache for users as well. So, I will add this to the list of jobs only rather than uploading a new version.

But you can edit the code. It is simple if you need "all" the labels having the same scale.

Find this line:
A.WriteLine (" <ListStyle>")

There are two instances. The first one is the tag for the normal mode of the icon and the second is for the highlighted mode. Adding these lines before any one or both of them as you wish must meet your need:
A.WriteLine (" <LabelStyle><scale>0</scale></LabelStyle>")

For conditional process, you can use the ID column with a small trick. For instance:

for placemark #1: 1id
for placemark #2: 2id

add this into the code (or any instr() usage):

A.WriteLine (" <LabelStyle><scale>")
If varArr1(varX1, varId) <> "" Then
If left(varArr1(varX1, varId),1) = "1" Then
A.WriteLine (" 1")
ElseIf left(varArr1(varX1, varId),1) = "2" Then
A.WriteLine (" 2")
End If
End If
A.WriteLine (" </scale></LabelStyle>")

There are interesting effects while playing with the normal and highlighted modes.

smile
_________________________
...
...
what you are is what you eat and what you think ...
...
Install 5.1 and be aware you can switch back ...
...
some help :: more help :: further help :: advanced help :: interactive help ...
...
developer help :: elf help :: full help ...

Top
#1278851 - 11/16/09 04:29 PM Re: Excel/OO data to kml (unicode, folders and... [Re: tekgergedan]
djruffian Offline
Traveler

Registered: 11/16/09
Posts: 2
Hi Tek,

Whenever I try to open a .kml file created by xls2kml, I get a "parse error: not well-formed (invalid token)" error.

I have tried everything I could find to solve this, but no luck so far. Could it be because my data has 798 records? The only thing I haven't tried is breaking it up into sets of <200.

Any help is much appreciated,
-Ryan

Top
Page 1 of 2 1 2 >