Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
Przesunięty przez: Artik
12-10-2019, 12:01
Makra wykorzystywane w Excelu 365 i ich zastosowanie w Gdocs
Autor Wiadomość
Szymonmil7
świeżak


Posty: 5
Wysłany: 12-10-2019, 10:17   Makra wykorzystywane w Excelu 365 i ich zastosowanie w Gdocs

Szanowni,

po zmianie pracy napotkalem dużą niedogodność pracy w google docs.
Chcialbym wykorzystać dwa kody vba, które bardzo ulatwiłyby mi pracę.

1. Import danych z pliku lokalnego (.xlsx) do google docs.

W wersji lokalnej wykorzystywalem makro do przeszukiwania i listowania plików z okreslonym rozszerzeniem (kod 1 przedstawiony niżej), a następnie podłączalem makro, które otworzy i skopiuje potrzebne dane do mojego pliku (kod.2). W google docs ani jedno, ani drugie makro nie dziala i nie znalazlem rozwiazania wertując google.


Kod 1:
Kod:

Public Sub ListaPlikow()

Application.Calculation = xlCalculationManual

Dim Katalog As String
Dim NazwaPliku As String
Dim IndexSheet As Worksheet
Dim KolejnyWiersz As Long

Sheets("Worksheet").Visible = True
Sheets("Worksheet").Select
Sheets("Worksheet").Range("A5:A160").Select
   Selection.ClearContents

KolejnyWiersz = 5

Set IndexSheet = Sheets("Worksheet")
Katalog = Range("A1").Value
Katalog = Katalog & "\"

NazwaPliku = Dir(Katalog & "*.xlsx")
Do While NazwaPliku <> ""
IndexSheet.Cells(KolejnyWiersz, 1).Value = NazwaPliku
KolejnyWiersz = KolejnyWiersz + 1
NazwaPliku = Dir
Loop

Set IndexSheet = Nothing

End Sub



kod 2:
Kod:

Sub kopiuj_dane_prod()
Application.ScreenUpdating = False


For i = 2 To 10


Sheets("Worksheet").Select
ActiveSheet.Calculate

If Cells(3, i).Value <> "" Then

'nazwa = Cells(i, 1).Value
adres_pliku = Cells(3, i).Value



For j = 2 To 10
Sheets("Narzedzia").Select
If Cells(j, 1).Value <> "" Then

adres_scheetu = Sheets("Narzedzia").Cells(j, 1).Value


Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Sheets(adres_scheetu).Visible = True
Sheets(adres_scheetu).Range("A1:AM50000").ClearContents

Application.ScreenUpdating = False
    strFileName = adres_pliku
    Set WB = Workbooks.Open(FileName:=strFileName, UpdateLinks:=0, ReadOnly:=1, IgnoreReadOnlyRecommended:=1, Local:=1)
    Set WbActual = ThisWorkbook
    Sheets(adres_scheetu).Select

    If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False

    Columns("A:AM").Select
    Selection.EntireColumn.Hidden = False
      Rows("1:300").Select
    Selection.EntireRow.Hidden = False

    Range("A2:AM5000").Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Application.CutCopyMode = False
    Selection.Copy
    WbActual.Sheets(adres_scheetu).Range("A2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
         Application.CutCopyMode = False
       WB.Close savechanges:=0
       
       
       Sheets(adres_scheetu).Range("A1").Value = Now()
       Calculate
       
End If
Next j

End If
Next i

MsgBox ("Odswiezono dane")
End Sub




2. Import danych z google docs do lokalnego pliku Excel

Szukając rozwiązania poddałem się i wykorzystuje metodę każdorazowego sciągania pliku google docs i następnie wykorzystywanie dwóch powyższych kodów. Może jest metoda bardziej automatyczna? Metoda którą odwołam sie do adresu google docs?



Bede wdzieczny za wszelkie wskazówki, źródła do informacji, może książek gdzie mogę nauczyć się VBA w google docs.

Z góry bardzo dziękuję.

Pozdrawiam,
Szymon
ID posta: 375442 Skopiuj do schowka
 
 
Artik 



Wersja: Win Office 365
Pomógł: 2888 razy
Posty: 9567
Wysłany: 12-10-2019, 11:59   

Google Sheets nie obsługuje VBA!
Zamiast tego należałoby zastosować język JavaScript.
Jeżeli nie masz czasu/ochoty na naukę JS pozostaje Ci działać w sposób jaki opisałeś - pobranie pliku do Excela, uruchomienie makr, wysyłka z powrotem na serwer.

Artik
_________________
Persistence is a virtue in the world of programming.
ID posta: 375447 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe