Function tachmau(workCell As Range)
strLen = Len(workCell)
tachmau = ""
For i = 1 To strLen
If workCell.Characters(i, 1).Font.Color <> vbBlack Then
tachmau = tachmau & workCell.Characters(i, 1).Text
End If
Next i
End Function
Này dùng arcgis bắn POI theo x ,y xuất định dạng *.kml sau đó đẩy google maps là dc
xem hướng dẫn import https://www.spotzi.com/en/about/help-center/how-to-import-a-kml-into-google-maps/
Có thể thêm và dùng này nhé!!!
Public Declare Function GetDiskFreeSpace Lib "kernel32" Alias "GetDiskFreeSpaceA" (ByVal lpRootPathName As String, lpSectorsPerCluster As Long, lpBytesPerSector As Long, lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters As Long) As Long
Option Compare Text...