Remake a vba script

[elmnas]

Hello VB Members,

I am total a newbeginner to VB.

I got help for a time ago, from different people to make this function in VBA.

The problem is I want to remake it to an application in Visual studio.

Sub Run_Two()

Dim xPath As String

myOrgName = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1))

xPath = Application.ActiveWorkbook.Path

MkDir xPath & "\FileSheets"
myLangPath = xPath & "\FileSheets"
MkDir xPath & "\LangCombs"


Application.ScreenUpdating = False
Application.DisplayAlerts = False
    For Each xWs In ThisWorkbook.Sheets
    xWs.Copy
    Application.ActiveWorkbook.SaveAs Filename:=myLangPath & "\" & myOrgName & "_" & xWs.Name & ".xls"
    Application.ActiveWorkbook.Close False
    Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Could someone help me or give me info about tutorials I googled some how to remake it as VB script

Thank you in advance

[westconn1]

remake it to an application in Visual studio.

you want to make a compiled application written in vb.net or a VBS script?

[elmnas]

Yes I would like to make an complied application in VB

[vbfbryce]

How would you identify which workbook to process from VB? Obviously "ThisWorkbook" won't work.

[elmnas]

Hello VB Members,

I should need a help with a code that

first from a dialog window

loop through all "*.xls" from a directory I select with the dialog window.

then for each "*.xls" file the script loops through all sheets and alert sheet name then save.



Could someone help me ?

Thank you in advance

[jayinthe813]

Cool concept, what did you try?

[TnTinMN]

Please do not make multiple posts in various sub-forums that are asking for the same thing. Granted the description in this post is more descriptive of your goal than the one you made in the Office Forum (Remake a vba script) and the VBA code you posted there does not achieve this goal, but the intent was the same as you are asking for here.

I have asked that the moderators consider merging your two threads.

[elmnas]

Hello vbfbryce,

Well I would like to have a dialog window and I select a xls file so that workbook.

[dday9]

I've merged two threads together, one from vbscript forum and the one from vb.net forum.