Anyone Can help me converting Excel VBA to Zoho Macro?

Anyone Can help me converting Excel VBA to Zoho Macro?

The Macro in general is pretty simple, It just opens a Workbook and copys some of data from that Workbook to the one that was initially open. But when I try to use it on Zoho I get this error "Unknown function: GetOpenFilename". If there is any other way to copy data fast from other workbooks I would like to know.

The code that I was talking about is the following one:

Sub UM()
'On Error GoTo Erro
Dim EnderecoPlan As String
Dim este As Workbook, outro As Workbook
Application.DisplayAlerts = False
EnderecoPlan = Application.GetOpenFilename(FileFilter:="file, *.xls*")
If EnderecoPlan <> Empty And EnderecoPlan <> "Falso" Then
    Set Folha = Application.Workbooks.Open(EnderecoPlan)
    Else
    Exit Sub
End If
Set este = ThisWorkbook
Set outro = ActiveWorkbook
outro.Sheets(2).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A1").PasteSpecial
outro.Sheets(3).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A36").PasteSpecial
outro.Sheets(4).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A71").PasteSpecial
outro.Sheets(5).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A106").PasteSpecial
outro.Sheets(6).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A141").PasteSpecial
outro.Sheets(7).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A176").PasteSpecial
outro.Sheets(8).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A211").PasteSpecial
outro.Sheets(9).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A246").PasteSpecial
outro.Sheets(10).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A281").PasteSpecial
outro.Sheets(11).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A316").PasteSpecial
outro.Sheets(12).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A351").PasteSpecial
outro.Sheets(13).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A386").PasteSpecial
outro.Sheets(14).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A421").PasteSpecial
outro.Sheets(15).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A456").PasteSpecial
outro.Sheets(16).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A491").PasteSpecial
outro.Sheets(17).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A526").PasteSpecial
outro.Sheets(18).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A561").PasteSpecial
outro.Sheets(19).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A596").PasteSpecial
outro.Sheets(20).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A631").PasteSpecial
outro.Sheets(21).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A666").PasteSpecial
outro.Sheets(22).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A701").PasteSpecial
outro.Sheets(23).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A736").PasteSpecial
outro.Sheets(24).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A771").PasteSpecial
outro.Sheets(25).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A806").PasteSpecial
outro.Sheets(26).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A841").PasteSpecial
outro.Sheets(27).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A876").PasteSpecial
outro.Sheets(28).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A911").PasteSpecial
outro.Sheets(29).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A946").PasteSpecial
outro.Sheets(30).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A981").PasteSpecial
outro.Sheets(31).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A1016").PasteSpecial
outro.Sheets(32).Range("A1").CurrentRegion.Copy
este.Sheets(1).Range("A1051").PasteSpecial

outro.Sheets(2).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K1").PasteSpecial
outro.Sheets(3).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K36").PasteSpecial
outro.Sheets(4).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K71").PasteSpecial
outro.Sheets(5).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K106").PasteSpecial
outro.Sheets(6).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K141").PasteSpecial
outro.Sheets(7).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K176").PasteSpecial
outro.Sheets(8).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K211").PasteSpecial
outro.Sheets(9).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K246").PasteSpecial
outro.Sheets(10).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K281").PasteSpecial
outro.Sheets(11).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K316").PasteSpecial
outro.Sheets(12).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K351").PasteSpecial
outro.Sheets(13).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K386").PasteSpecial
outro.Sheets(14).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K421").PasteSpecial
outro.Sheets(15).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K456").PasteSpecial
outro.Sheets(16).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K491").PasteSpecial
outro.Sheets(17).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K526").PasteSpecial
outro.Sheets(18).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K561").PasteSpecial
outro.Sheets(19).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K596").PasteSpecial
outro.Sheets(20).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K631").PasteSpecial
outro.Sheets(21).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K666").PasteSpecial
outro.Sheets(22).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K701").PasteSpecial
outro.Sheets(23).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K736").PasteSpecial
outro.Sheets(24).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K771").PasteSpecial
outro.Sheets(25).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K806").PasteSpecial
outro.Sheets(26).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K841").PasteSpecial
outro.Sheets(27).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K876").PasteSpecial
outro.Sheets(28).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K911").PasteSpecial
outro.Sheets(29).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K946").PasteSpecial
outro.Sheets(30).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K981").PasteSpecial
outro.Sheets(31).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K1016").PasteSpecial
outro.Sheets(32).Range("K1").CurrentRegion.Copy
este.Sheets(1).Range("K1051").PasteSpecial
outro.Close False
End Sub


    Zoho Desk Resources

    • Desk Community Learning Series


    • Digest


    • Functions


    • Meetups


    • Kbase


    • Resources


    • Glossary


    • Desk Marketplace


    • MVP Corner


    • Word of the Day


      • Sticky Posts

      • Slicers are now available in Zoho Sheet—filter your data interactively

        At Zoho Sheet, we diligently track user requests and feedback. In line with this, based on extensive user requests, we've integrated Slicers to pivot tables and are delighted to announce its release. Slicers are interactive visual filters that have add,

      • Check out the new Checkbox in Zoho Sheet

        Checkbox, the simple GUI widget that lets you choose between two mutually exclusive options i.e Yes or No, is now in Zoho Sheet. Having made it across the web, Checkbox is familiar but is still elusive to most spreadsheet software. Special developer ribbons, macros and all other complexities to add a checkbox to a spreadsheet? Not in Zoho Sheet. How to add Checkbox to Zoho Sheet? Adding a Checkbox in Zoho Sheet is simple. Select a cell/range and choose "Checkbox" in "Input Controls" under the Format

      • Format and analyze spreadsheet data with Zoho Sheet's Table

        While a spreadsheet helps you compile data for easy analysis, formatting helps make your data more comprehensible. We are happy to announce the release of Table, a crucial tool for improving data formatting in Zoho Sheet. More than a formatting tool,

      • Introducing Data Bars: Graphically represent changes in data within the cells

        Conditional formatting has helped millions of spreadsheet users analyze and highlight their data more efficiently. In addition to the classic rules, color scales, and icon sets available in Zoho Sheet, you can now apply Data Bars, a convenient method

      • Zia in Zoho Sheet now makes suggestions on conditional formats, picklists, and checkboxes

        Zia, Zoho's popular AI assistant, has been helping users succeed across Zoho applications since inception. In Zoho Sheet, Zia helps users efficiently build reports and analyze data with recommendations about data cleaning, charts, and pivot table. Also,

      Zoho CRM Plus Resources

        Zoho Books Resources


          Zoho Subscriptions Resources

            Zoho Projects Resources


              Zoho Sprints Resources


                Zoho Orchestly Resources


                  Zoho Creator Resources


                    Zoho WorkDrive Resources



                      Zoho Campaigns Resources

                        Zoho CRM Resources

                        • CRM Community Learning Series

                          CRM Community Learning Series


                        • Tips

                          Tips

                        • Functions

                          Functions

                        • Meetups

                          Meetups

                        • Kbase

                          Kbase

                        • Resources

                          Resources

                        • Digest

                          Digest

                        • CRM Marketplace

                          CRM Marketplace

                        • MVP Corner

                          MVP Corner




                          Zoho Writer Writer

                          Get Started. Write Away!

                          Writer is a powerful online word processor, designed for collaborative work.

                            Zoho CRM コンテンツ




                              ご検討中の方