How to replace Workbooks(1) with the .exe file in a macro

Hi Team,

The macro below copy data from the 2nd workbook opened and paste in the 1st workbook opened.
Because the 1st workbook is now an .exe file the macro is not working.

How can I fix the macro, considering Workbooks(1) is now .exe file?

Sub TransferData()
Workbooks(1).Sheets(“Logbook”).Range(“A11:C367”).Value = Workbooks(2).Sheets(“Logbook”).Range(“A11:C367”).Value
End Sub

Click to expand...

Thanks

You have several ways to open the 2nd workbook:

1. you could add it as a companion file:
   

• you could open it from VBA. Place the 2nd workbook in the same folder as the new EXE and use the following VBA code:
  

For instance,

Workbooks.Open(PathToFile(“SecondWorkbook.xlsx”))

Click to expand...

Or use shellexecute if the second file is an exe file

eg

'open xlspadlock protected file
Dim TargetFilepath As String
TargetFilepath = PathToFile(“SafeBUDDY Graphs.exe”)
You need the function in the module first.

Public Function PathToFile(Filename As String)
Dim XLSPadlock As Object
On Error GoTo Err
Set XLSPadlock = Application.COMAddIns(“GXLSForm.GXLSFormula”).Object
PathToFile = XLSPadlock.PLEvalVar(“EXEPath”) & Filename
Exit Function
Err:
PathToFile = ""
End Function

Sorry gdgsupport, I don’t think you understand my question (probably my explanation was terrible). The macro has nothing to do with opening a workbook.

My macro is super simple, it just copy and paste, from the second workbook opened to the first workbook opened. That’s it!

Explaining in a bit more details: the user will open the new version of the workbook, and later will open the old version of the workbook. The macro will copy the data entered by the user previously in the old version, and paste to the new version.

This macro works well if both files are Excel workbooks, but because the new version is an .exe file (due to the XLS Padlock) the macro doesn’t work. My understanding is, the macro looks for an workbook and can’t find because the new workbook is an .exe file.

Can you please advise how can I fix this macro?

Thank you.

Sub TransferData()
Workbooks(1).Sheets(“Logbook”).Range(“A11:C367”).Value = workbooks(2).Sheets(“Logbook”).Range(“A11:C367”) .Value
End Sub

Click to expand...

Well, for workbooks(1) and (2) to exist, you must have opened them first. If the first is the EXE, how do you open the second?

Yes, for them to exist you have to open them first, on this order.

The first file is now an EXE because of XLS Padlock, and the second file is still an Excel workbook (it is the old version of the EXE version).

The macro copy the data from the old version (Excel workbook) into the new version (EXE XLS Padlock workbook).

Because the new version is now and EXE file, the macro cannot copy from the workbook to another workbook, because the other workbook is now EXE file.

Was that clear?

Cheers

That’s why we told you that the 2nd workbook (old version) must be opened with VBA code. The secure instance of Excel run by the EXE won’t accept loading other workbooks by using the File/Open… command. The sole mean is to use VBA.

It worked, thank you.

Hi Support,

The macro works well when transferring data from standard Excel formats (.xlsm or .xlsx) to the EXE application, but it doesn’t work when transferring data from a .xlsc file.

Is it possible to transfer data from an existing .xlsc file to the EXE application?

Thanks

An .XSLC file is actually an XLSM (or XLSX) file, a copy of your workbook, encrypted. It can only be opened by the EXE at the startup and not afterwards. If you want to exchange data outside of the EXE, you have to use VBA code to deal with normal Excel workbooks. If you want to secure them, you can also use encryption to read/save data.

Sorry Support, thanks for the answer but that was a bit confusing, I’m not sure if we are talking about the same thing.
To clarify, that’s what I’m trying to achieve:

1. user is already using EXE version 1
2. now I developed the EXE version 2
3. user will download, install and open the EXE version 2 in his computer
4. user will run my macro below to transfer (copy and paste) his data from EXE version 1 to EXE version 2
5. to transfer the data, I understand user will select his .XLSC file containing his data when he runs the macro (see the Open_Workbook_Dialog macro below)

I’m currently using the macros below and they work perfectly copying and pasting the data from a XLSM format to the EXE version 1:

Public Function PathToFile(Filename As String)
Dim XLSPadlock As Object
On Error GoTo Err
Set XLSPadlock = Application.COMAddIns(“GXLSForm.GXLSFormula”).Object
PathToFile = XLSPadlock.PLEvalVar(“EXEPath”) & Filename
Exit Function
Err:
PathToFile = “”
End Function

Click to expand...

Sub TheTransfer()
Call Open_Workbook_Dialog
Call TransferData
End Sub

Click to expand...

Sub Open_Workbook_Dialog()
Dim my_FileName As Variant
my_FileName = Application.GetOpenFilename( _
FileFilter:=“Excel Files,.xl;.xm”, _
FilterIndex:=3, _
Title:=“Select the old version of your spreadsheet, where you will pull the data from”, _
MultiSelect:=False)
If my_FileName <> False Then
Workbooks.Open Filename:=my_FileName
End If
End Sub

Click to expand...

simplified TransferData macro with one line only (real one has over 30 lines). It is basically copying and pasting:

Sub TransferData()
Workbooks(1).Sheets(“Logbook”).Range(“A11:C367”).Value = workbooks(2).Sheets(“Logbook”).Range(“A11:C367”) .Value
End Sub

Click to expand...

The question: is it possible to transfer the data (copy and paste) from user’s EXE version 1 .xslc file to the new EXE version 2?

It’s possible to share data between workbooks by using a third-party normal workbook file stored in a common location. Use VBA to store data from EXE 1 to the common normal (non-encrypted) workbook file, then configure your EXE 2 with VBA to retrieve data from the common workbook file.