Need assistance translating VBA to C#

Question

0.00/5 (No votes)

See more:

Team,

I desperately need some assistance. I have no experience with VBA or C# but my supervisor has been deadset on having me rewrite in C# a tool originally written in VBA 10 years ago. I don't wish to point finger at my supervisor, rather, I'm just seeking assistance in order to make the best of the situation.

I've tried YouTube and Google for weeks but have been frustrated by the results, primarily due to my lack of experience with C#.

How can I translate the below to C#?
It's about 20 pages of code but I'm hoping getting this piece going will be the starting point I need.

What I have tried:

'make A020 word document
Sub makeA020()
    Application.ScreenUpdating = False
    Call progress(0, "Initializing", "Making CDRL A020")
    Call setConstants
    'prep Sheet
    Call progress(5, "Prepping Sheet")
    releaseName = importSheet.Range("A3").text
    versionName = importSheet.Range("A2").text
    svdVersion = openSVD(releaseName)
    
    'open template
    Call progress(10, "Opening Template")
    Set wordApp = makeWordApp
    wordFileName = "\\intranet\busunits\Intel\CPASC\System%20Test\CDRLs\A020%20Software%20Test%20Report%20(STR)\CPASC-A020-STR-Main-Template.docx"
    FileCopy wordFileName, Environ("Temp") & "\CPASC-A020-STR-Main-Template.docx"
    wordFileName = Environ("Temp") & "\CPASC-A020-STR-Main-Template.docx"
    Set wordDoc = wordApp.Documents.Open(wordFileName)
    Call progress(15, "Fixing Bookmark Colors")
    Call fixBookmarkColors(wordDoc)
    Call fillReleaseNameAndDate(wordDoc, releaseName)
    'fill svd version #
    Call progress(25, "Filling SVD")
    wordDoc.bookmarks("ccscVer").Range.text = "Version " & svdVersion & "."
    Call clearCDRLJunk("a020", wordDoc)
    Call getAccessData
    Call clearJunkData(wordDoc)
    Call makeTestLog(wordDoc, svdVersion)
    Call getTestsFromA019(wordDoc)
    Call fillA020Tests(wordDoc)
    Call handleFouo(wordDoc)
    Call handleWitnesses(wordDoc)
    Call progress(80, "Updating Table of Contents")
    Call updateTOC(wordDoc)
    Call a020Deviations(wordDoc)
    Call testResultSummary(wordDoc)
    Call problemsEncountered(wordDoc)
    Call handleA020Security(wordDoc)
    Call fillNewIssues(wordDoc)
    Call deleteSheet
    Call makeA020Folders(wordDoc, releaseName)
    Call thisVersion(versionName, releaseName)
    
    'cleanup
    Call progress(98, "Cleaning Up")
    Set wordDoc = Nothing
    Call pauseTime(2)
    wordApp.Quit
    Application.ScreenUpdating = True
    Call progress(100, "A020 Generation Complete")
    Exit Sub
logit:
    Call oopsie("makeA020")
End Sub

Posted 11-Apr-20 6:06am

Benjaminj007

Updated 13-Apr-20 5:50am

Add a Solution

3 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Maciej Los · Answer 1 · 2020-04-11T07:53:00

Solution 1

There's nothing to translate! You have to determine what VBA code is doing and you to write it from scratch in c#.

When you get stuck, come back here and ask detailed question.

Posted 11-Apr-20 7:53am

Maciej Los

BobbyStrain · Answer 2 · 2020-04-11T09:31:00

Solution 2

You should say no. Suggest your supervisor she let you hire someone for the job.

Posted 11-Apr-20 9:31am

BobbyStrain

Comments

Benjaminj007 13-Apr-20 11:54am

I see the humor, Bobby, but I feel fortunate to have a job when millions have lost theirs.

Dave Kreskowiak · Answer 3 · 2020-04-11T12:14:00

Solution 3

There really isn't anything to translate in that code. For the most part, it's a bunch of calls to other functions that do the actual work.

Posted 11-Apr-20 12:14pm

Dave Kreskowiak

Comments

Benjaminj007 13-Apr-20 12:03pm

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
'set sheet names
Set valSheet = Sheets("CTF-Issue Val Tracker")
Set issueAssignments = Sheets("Issue Assignments")
'handle invalid stuff, exit if any are true
If valSheet.Cells(1, "AA").text <> "filled" Or Target.Row = 1 Or ActiveSheet.Name <> "CTF-Issue Val Tracker" Then GoTo exitHandler
'put it where it goes
On Error Resume Next
For Each aCell In Target
changedCell = valSheet.Cells(aCell.Row, aCell.Column).Value
Set tempCell = issueAssignments.Range("H:H").Find(What:=valSheet.Cells(aCell.Row, "A").Value)
If Not tempCell Is Nothing Then
Select Case aCell.Column
Case "9"
'link "Validated?" columns if filled
tempCell.offset(0, 9).Value = changedCell
Case "7"
'link "Tester?" columns if filled
tempCell.offset(0, 3).Value = changedCell
Case "8"
'link "Completed Date" columns if filled
tempCell.offset(0, 6).Value = changedCell
End Select
End If
Next
On Error GoTo 0
'handle exit
exitHandler:
Application.EnableEvents = True
Exit Sub
Whoa:
MsgBox Err.Description
Resume exitHandler
End Sub
'Private Sub fillValSheet_Click()
' Call Sheets("Import Sheet").fillValTracker
'End Sub
'Private Sub clearValSheet_Click()
' Call Sheets("Import Sheet").clearValTracker
'End Sub

Dave Kreskowiak 13-Apr-20 12:17pm

OK, so what's the question? I'm not translating anything for you. It's not possible for you to do my job for me, so...

This comes down to learning both languages, understanding what the original code is doing and writing the equivalent code in C#. There is no shortcut for this, and no service where you can copy'n'paste the code to have it done for you.

Benjaminj007 13-Apr-20 12:23pm

I'm not asking you to do my work for me, Dave. I have no experience in either language, and time is a factor. I have over twenty pages of code to translate and I don't have a starting point. That's why I'm seeking some assistance with this piece so I can take it from there. No shortcuts. I don't believe asking for help equates to a shortcut or wanting someone to do it for me.

Dave Kreskowiak 13-Apr-20 12:34pm

A starting point? Creating a C# Windows Forms application or a Console application, depending on your requirements. Add a COM reference to the Microsoft Office xx.xx Object Library. Then it's a matter of understanding the code and writing new code to do the same thing.

If you attempt to do a line-by-line conversion of the original VBA code, you are going to fail very quickly. It will not work.

Benjaminj007 13-Apr-20 12:37pm

Acknowledged. Thanks for the input. Much appreciated