
Private Sub CommandButton1_Click() Dim dataF As String, turnoF As String, nomeF As String dataF = Me.TextBox1.Text turnoF = Me.TextBox2.Text 'Report 12-03-2013 - Turno '22.00 - 06.00'.xls nomeF = "Report" & " " & dataF & " - " & "Turno" & " " & "'" & turnoF & "'" Workbooks.Open Filename:="c:Archivio Report" & nomeF & ".xls" End Sub |
