Add the XLS file as a custom resource file to your VB6 project then use this line (if resource file is 101)...
Code:
LoadDataIntoFile 101, "c:\filename.xls"
with this routine..
Code:
Public Sub LoadDataIntoFile(DataName As Integer, filename As String)
Dim myArray() As Byte
Dim myFile As Long
If Dir(filename) = "" Then
myArray = LoadResData(DataName, "CUSTOM")
myFile = FreeFile
Open filename For Binary Access Write As #myFile
'
Put #myFile, , myArray
Close #myFile
End If
End Sub
From VB6, this will place your added XLS resource file into whatever destination you assign (ie."c:\filename.xls"). You can set up your VB6 project to add this file during execution then remove this file before project closing. The file is then only available as an exe. HTH. Dave
We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel
Which adblocker are you using?
Disable AdBlock
Follow these easy steps to disable AdBlock
1)Click on the icon in the browser’s toolbar. 2)Click on the icon in the browser’s toolbar. 2)Click on the "Pause on this site" option.
Go back
Disable AdBlock Plus
Follow these easy steps to disable AdBlock Plus
1)Click on the icon in the browser’s toolbar. 2)Click on the toggle to disable it for "mrexcel.com".
Go back
Disable uBlock Origin
Follow these easy steps to disable uBlock Origin
1)Click on the icon in the browser’s toolbar. 2)Click on the "Power" button. 3)Click on the "Refresh" button.
Go back
Disable uBlock
Follow these easy steps to disable uBlock
1)Click on the icon in the browser’s toolbar. 2)Click on the "Power" button. 3)Click on the "Refresh" button.