Private Sub CmdServings_Click() Dim strData As String Dim n As Integer Dim dlg As filedialog Dim GetFilePath As Object Set dlg = Application.filedialog(msoFileDialogSaveAs) dlg.AllowMultiSelect = False dlg.Title = "Select the file to be imported..." If dlg.Show Then GetFilePath = dlg.SelectedItems(1) End If n = FreeFile() Print #n, strData Close #n End Sub
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.
Our community of experts have been thoroughly vetted for their expertise and industry experience.