Forum » .NET assembly / COM library »

Post a reply

Options
Add an Attachment

If you do not want to add an Attachment to your Post, please leave the Fields blank.

(maximum 10 MB; please compress large files; only common media, archive, text and programming file formats are allowed)

Options

Topic review

martin

Re: VBA Excel 2010 64bit hangs

I'm sorry, but I do not know how to help you further.
cts1085

Re: VBA Excel 2010 64bit hangs

I changed the code to what you recommended.
I added a msgbox "test" in front of the "with" and when stepping I see the msgbox but the next command hangs or exits Outlook.

I looked in the event viewer and found this: not sure if it is helpful. 


- <Event xmlns="http://schemas.microsoft.com/win/2004/08/events/event">

- <System>

  <Provider Name=".NET Runtime" /> 

  <EventID Qualifiers="0">1023</EventID> 

  <Level>2</Level> 

  <Task>0</Task> 

  <Keywords>0x80000000000000</Keywords> 

  <TimeCreated SystemTime="2016-03-03T16:33:33.000000000Z" /> 

  <EventRecordID>85015</EventRecordID> 

  <Channel>Application</Channel> 

  <Computer>CTS</Computer> 

  <Security /> 

  </System>

- <EventData>

  <Data>.NET Runtime version 2.0.50727.5485 - CLR: Fatal Execution Engine Error (000007FEED75600A) (80131506)</Data> 

  </EventData>

  </Event>
martin

Re: VBA Excel 2010 64bit hangs

Did you try to separate the With statement to separate statements?

Also I'm not sure about your .Protocol = WinSCPnet.Protocol_Sftp syntax. Did you try .Protocol = Protocol_Sftp, as documented?
https://beta.winscp.net/eng/docs/library_vb#enums
cts1085

Re: VBA Excel 2010 64bit hangs

martin wrote:

cts1085 wrote:

why does the code hang on the next statement?

What statement?


This statement: 

With mySessionOptions 

        .Protocol = WinSCPnet.Protocol_Sftp 

        .HostName = "hostname" 

        .UserName = "******" 

        .Password = "******" 

        .SshHostKeyFingerprint = "ssh-rsa 2048 ce:f2:d5:05:e0:36:63:e1:**:**:**:c0:16:ba:06:72" 

    End With


When i step through the debugger and it hits this statement - it hangs.
martin

Re: VBA Excel 2010 64bit hangs

cts1085 wrote:

why does the code hang on the next statement?

What statement?
cts1085

Re: VBA Excel 2010 64bit hangs

martin wrote:

the mySession and mySessionOptions variables are never set

What does that mean? Does the code even compile/run? Or does it fail on run time? With what error?


ok - thanks - that helps.

Then - why does the code hang on the next statement? Outlook stops responding, etc.
martin

Re: VBA Excel 2010 64bit hangs

the mySession and mySessionOptions variables are never set

What does that mean? Does the code even compile/run? Or does it fail on run time? With what error?
cts1085

VBA Excel 2010 64bit hangs

First off - thank you for providing this interface - i hope to get it working from within a VBA script soon.

I downloaded the library and to test i was able to execute this script from powershell: (Note I did change some of the strings to protect passwords, etc.) 

try

{

    # Load WinSCP .NET assembly

    Add-Type -Path "c:\Program Files (x86)\WinSCP\WinSCPnet.dll"

 

    # Setup session options

    $sessionOptions = New-Object WinSCP.SessionOptions -Property @{

        Protocol = [WinSCP.Protocol]::Sftp

        HostName = "hostname"

        UserName = "*****"

        Password = "*****"

        SshHostKeyFingerprint = "ssh-rsa 2048 ce:f2:d5:05:e0:36:63:e1:**:**:**:c0:16:ba:06:72"

    }

    

    

 

    $session = New-Object WinSCP.Session

 

    try

    {

        # Connect

        $session.Open($sessionOptions)

 

        # Upload files

        $transferOptions = New-Object WinSCP.TransferOptions

        $transferOptions.TransferMode = [WinSCP.TransferMode]::Binary

 

        $transferResult = $session.PutFiles("d:\util\junkfolder\*", "/var/lib/user/junkfolder/", $False, $transferOptions)

 

        # Throw on any error

        $transferResult.Check()

 

        # Print results

        foreach ($transfer in $transferResult.Transfers)

        {

            Write-Host ("Upload of {0} succeeded" -f $transfer.FileName)

        }

    }

    finally

    {

        # Disconnect, clean up

        $session.Dispose()

    }

 

    exit 0

}

catch [Exception]

{

    Write-Host $_.Exception.Message

    exit 1

}


I hope this shows that the DLL is functioning..

Now when I try to execute this VBA script from within Excel 2010 64bit Macro (And I do have the library reference selected) via debug - the mySession and mySessionOptions variables are never set - it is like the "New" option is not finding the objects.

I also ran the .net registration for both 32bit and 64bit per your install_library page.

Thoughts? 

Sub TransferFolder()

 

    On Error GoTo SPC_err

          

    ' Setup session options