excel(VBA)...
1 отговора
0 прегледа
excel(VBA)...
Здр!
Създал съм си табличка в която периодично попълвам съответните данни.
Най от-долу съм създал форма а в нея един комбобокс и един команден бутон .
В Комбобокса ,съществуват различни имена на хора .
Въпроса ми е как ,като си избера от комбобокса примерно :Александър Петров и щракна върху комнадбутона този документ(екселски) да се зпише в следната директория ...
Примерно : C:\Documents and Settings\alex\My Documents\My Pictures\ " тук името на човека ,който съм избрал в комбобокса ", в случая Александър Петров. Благодаря ви !
Създал съм си табличка в която периодично попълвам съответните данни.
Най от-долу съм създал форма а в нея един комбобокс и един команден бутон .
В Комбобокса ,съществуват различни имена на хора .
Въпроса ми е как ,като си избера от комбобокса примерно :Александър Петров и щракна върху комнадбутона този документ(екселски) да се зпише в следната директория ...
Примерно : C:\Documents and Settings\alex\My Documents\My Pictures\ " тук името на човека ,който съм избрал в комбобокса ", в случая Александър Петров. Благодаря ви !
Re: excel(VBA)...
Правиш си едно макросче от рода на това
Sub Button2_Click()
Dim TargetFolder As String
Dim WorkbookName As String
TargetFolder = "C:\Documents and Settings\alex\My Documents\My Pictures\"
WorkbookName = ComboBox1.Text + ".xls"
ActiveWorkbook.SaveAs (TargetFolder + WorkbookName)
End Sub
Sub Button2_Click()
Dim TargetFolder As String
Dim WorkbookName As String
TargetFolder = "C:\Documents and Settings\alex\My Documents\My Pictures\"
WorkbookName = ComboBox1.Text + ".xls"
ActiveWorkbook.SaveAs (TargetFolder + WorkbookName)
End Sub