'1004 runtime error' about excelpython

[ericremoreynolds]

Hello shends,
Could you please check if a folder called xlpython has been created in the same folder as your workbook, and if so whether it contains the file xlpython.bas?

[shends]

Thank you fro the fast response:)
Yes, so this is how it looks like
Computer > Local C> Project > xlpython folder & test.xlsm (workbook folder)
and inside the xlpython folder there is file xlpython.bas

[ericremoreynolds]

What error message is VBA giving? Can you attach a screenshot?

[shends]

This is the error message that I am getting right now.

[ericremoreynolds]

Ok thanks, I am a bit confused however, because it is a different line from the one you mentioned, and also I cannot see any VBA error message.

You can see the VBA error message by typing ?Err.Description into the immediate window (the white box at the bottom of the screen)

[shends]

After I type in ?Err.Description, it says "It can not find the path"
Excel is not in English so it translated into... "It can not find the path"

My problem is when I click "Setup ExcelPython" button, it says..
"This action will:... Do you want to proceed?" and I answer "Yes" then the "76 runtime error" occurs.

[ericremoreynolds]

Ok, I see, please bear with me, can you please give me the output of the following in the immediate window:

?ThisWorkbook.Path

[ericremoreynolds]

I think the problem may be something to do with the characters (are they Chinese?). In fact I don't understand why it is showing a different character instead of a \ for example \xlpython. Is that normal?

[ericremoreynolds]

If the problem really is the \ character, maybe we can fix it by using Application.PathSeparator instead. Please let me know if replacing the relevant lines with the following VBA code works.

If fso.FolderExists(wb.Path + Application.PathSeparator + "xlpython") Then
    isVersionOK = False
    ver = "?.?.?"
    For Each f In fso.GetFolder(ThisWorkbook.Path + Application.PathSeparator + "xlpython").Files
        If LCase$(Right$(f, 4)) = ".dll" Then
            isVersionOK = fso.FileExists(wb.Path + Application.PathSeparator + "xlpython" + Application.PathSeparator + fso.GetFileName(f))
            ver = Mid$(fso.GetBaseName(f), InStr(fso.GetBaseName(f), "-") + 1)
            Exit For
        End If
    Next f
    If Not isVersionOK Then
        MsgBox "The installation folder already exists, but it does not contain ExcelPython version " + ver + "." _
            + vbCrLf + vbCrLf + "Installation folder: " + wb.Path + Application.PathSeparator + "xlpython" _
            + vbCrLf + vbCrLf + "To set up a fresh install please delete it and try again. Note that you may need to close Excel to delete it." _
            , vbCritical, "Error installing ExcelPython runtime"
        Exit Sub
    End If
Else
    fso.CopyFolder ThisWorkbook.Path + Application.PathSeparator + "xlpython", wb.Path + Application.PathSeparator + "xlpython"
End If

On Error GoTo not_present
wb.VBProject.VBComponents.Remove wb.VBProject.VBComponents("xlpython")
not_present:
On Error GoTo 0
wb.VBProject.VBComponents.Import wb.Path + Application.PathSeparator + "xlpython" + Application.PathSeparator + xlpython.bas"

' create skeleton py file
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FileExists(wb.Path + Application.PathSeparator + fso.GetBaseName(wb.name) + ".py") Then
    Set f = fso.CreateTextFile(wb.Path + Application.PathSeparator + fso.GetBaseName(wb.name) + ".py", True)
    f.WriteLine "from xlpython import *"
    f.Close
End If

[shends]

Thank you for helping me out. I really apprecaite it.
So, when I type the following: "?ThisWorkbook.Path"
"C:\Project\xlpython"
This is the output file.

[ericremoreynolds]

ok i see, so you have unzipped the add-in in the folder c:\project\xlpython, i don't know if possibly this creates a problem when the setup tries to copy the c:\project\xlpython\xlpython folder to c:\project\xlpython.

try creating another folder c:\project2, saving a new workbook there and try again, so that way no conflicts are created

[shends]

So, after following your instruction, and clicking on SetupExcelPython button, the error occurs saying "76 runtime error" and when I debug it, the yellow line is on the following line

[shends]

And when I uncommented that line, it successfully created test2.py file in c:\project2 folder. (yay!)
Wait, but is it ok to uncomment that line?

[ericremoreynolds]

Well... not really.
So I will explain, what the 'setup' button does is the following

1. Copies the xlpython folder from the folder containing xlpython.xlam to the folder containing your workbook
2. Imports the module xlpython\xlpython.bas into your workbook, thus creating the xlpython VBA module
3. Creates the file test2.py with the line from xlpython import * to get you started.

So the first two steps are necessary for everything to work. If you have seen that the xlpython folder has been created, that the DLLs are in that directory, and you can import xlpython\xlpython.bas manually, then it will all work.

But I still can't understand why the add-in is failing unfortunately.

[ericremoreynolds]

Shends, do you have TeamViewer? If so I can give you remote assistance. You can send me the id/password by email.

[shends]

That would be great! Let me download TeamViewer right now. Where can I find your email?

[shends]

Thank you so much by following the
https://github.com/ericremoreynolds/excelpython/blob/master/docs/tutorials/AddinTrouble.md
I was able to solve my problem.:) Thank you

[ericremoreynolds]

Excellent I am glad to hear it, thank you for your interest in the project!

Eric.