We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Public Function ReturnDevAreaPath() As String Dim strresponse As String Dim o As New SaveFileDialog ' Dim strwkname As String Dim ExcelBook, bookname As String o.Filter = "Excel File (*.xls)|*.xls" o.Title = "Save Excel Workbook As" o.Filter = "Excel Spreadsheets (*.xlsx)|*.xlsx" Dim str As String = "MedicalExcelReport" o.FileName = str strresponse = o.ShowDialog() Application.DoEvents() If strresponse = 1 Then Application.DoEvents() ExcelBook = o.FileName bookname = ExcelBook Return ExcelBook End If End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|VBA to Update status Column based on recent date||20||41|
|Visual Basic 6: Code needed for TripleDES Encryption/Decryption||14||44|
|Create simple VB.net Add-in for Excel in Office 365||2||27|
|Opening a word doc from Excel and having fields populated in word from Excel when open||2||29|