Private Sub CommandButton1_Click()
iAddress$ = "A7"
iListName$ = "Лист1"
iFullName$ = "C:\Kurs@\Excel\Tab.xls"
If TextBox1.Value <> "" Then
If Dir(iFullName$) <> "" Then
With Workbooks.Open(FileName:=iFullName$)
.Worksheets(iListName$).Range(iAddress$) _
.Value = TextBox1.Value
.Close saveChanges:=True
End With
End If
End If
End Sub
Excel и VBA
P( Эх, годы студенческие....:)
Вот 3ю неделю уже бьюся я, студент 2го курса, над своей курсовой работой....:) Вопрос:
Как мне данные вводимые в TextBox экспортировать в книгу Excel на опред. лист в определенную ячейку ( C:\Kurs@\Excel\Tab.xls )
Не судите меня....:roll: я - не волшебник, - я только учусь:}
Вот 3ю неделю уже бьюся я, студент 2го курса, над своей курсовой работой....:) Вопрос:
Как мне данные вводимые в TextBox экспортировать в книгу Excel на опред. лист в определенную ячейку ( C:\Kurs@\Excel\Tab.xls )
Не судите меня....:roll: я - не волшебник, - я только учусь:}
:roll: помогите :roll:
:roll:пожалуйста:roll:
:roll:пожалуйста:roll:
Вообще есть какой-нить способ передачи данных из VBA в опред. ячейку Excel?
ну посоветуйте хоть кто-нибудь хоть что-нибудь? (((((((((
ну посоветуйте хоть кто-нибудь хоть что-нибудь? (((((((((
Цитата:
Originally posted by arseen
P( Эх, годы студенческие....:)
Вот 3ю неделю уже бьюся я, студент 2го курса, над своей курсовой работой....:) Вопрос:
Как мне данные вводимые в TextBox экспортировать в книгу Excel на опред. лист в определенную ячейку ( C:\Kurs@\Excel\Tab.xls )
Не судите меня....:roll: я - не волшебник, - я только учусь:}
P( Эх, годы студенческие....:)
Вот 3ю неделю уже бьюся я, студент 2го курса, над своей курсовой работой....:) Вопрос:
Как мне данные вводимые в TextBox экспортировать в книгу Excel на опред. лист в определенную ячейку ( C:\Kurs@\Excel\Tab.xls )
Не судите меня....:roll: я - не волшебник, - я только учусь:}
Очень хотелось бы узнать, а приложение которорое ты пишеш находится в той же книге Excel или нет?
Приложение т.е. Application в принципе не может находится в рабочей книге, в отличии от, например, рабочего листа или модуля содержащего процедуру.
Цитата:
Originally posted by pashulka
Приложение т.е. Application в принципе не может находится в рабочей книге, в отличии от, например, рабочего листа или модуля содержащего процедуру.
Приложение т.е. Application в принципе не может находится в рабочей книге, в отличии от, например, рабочего листа или модуля содержащего процедуру.
Извеняюсь, я вот что я хотел узнать:
Есть Лист("Лист1") на котором расположена кнопка при нажатии на которую открввается форма, накоторой как раз содержится то самое текстовоетекстовое поле. Дак вот текс в этом поле куда именно записываться на "Лист1" или на какой либо другой.
SAID, Значит будем ждать ответ от авторого сего топика, ведь именно у него Вы поинтересовались месторасположением формы.
Спасибо большщое за помощь.... :P совет очень помог... а форму я делаю непосредственно в Visual Baqsic 6.0/// просто я хотел что бы моя готовая прога (ексешник) заносила через textBox ДАННЫЕ в Excel-евскую кнугу на лист1.... и лист2 этой же книги ссылался на эти занесенные ДАННЫЕ и производил определенные вычисления ...
потом через OLE-компонент при помощи спец-й вставки на форме выводилась бы уже готовая таблица со всеми результатами вычислений...
так вот что я сделал в итоге:
;)
Private Sub CommandButton1_Click()
Dim X As Object
Set X = CreateObject("excel.Application")
X.Visible = True
X.workbooks.Open _ FileName:="C:\Kurs@\Excel\Tab.xls"
X.Worksheets("Лист1").Range("H7").Value = TextBox1.Text
End Sub
В идеале конечно хотелось бы что бы данные заносились при этом не открывая EXCEL-кий документ и при этом сохранялись в нем
.Close saveChanges:=True - ругается....
Может кто и здесь поможет?
:???: :roll:
потом через OLE-компонент при помощи спец-й вставки на форме выводилась бы уже готовая таблица со всеми результатами вычислений...
так вот что я сделал в итоге:
;)
Private Sub CommandButton1_Click()
Dim X As Object
Set X = CreateObject("excel.Application")
X.Visible = True
X.workbooks.Open _ FileName:="C:\Kurs@\Excel\Tab.xls"
X.Worksheets("Лист1").Range("H7").Value = TextBox1.Text
End Sub
В идеале конечно хотелось бы что бы данные заносились при этом не открывая EXCEL-кий документ и при этом сохранялись в нем
.Close saveChanges:=True - ругается....
Может кто и здесь поможет?
:???: :roll:
Урааааа добил-таки ))) :
Private Sub Command1_Click()
Dim X As Object
Set X = CreateObject("excel.Application")
X.Visible = False
With X.workbooks.Open(FileName:="C:\Kurs@\Excel\Tab.xls")
X.Worksheets("Лист1").Range("H7").Value = Text1.Text
.Close saveChanges:=True
End With
End Sub
Всем огромное спасибо ( pashulka - RESPECT :))) )
С главной проблемой справился))))
Это САМЫЙ ЛУЧШИЙ ФОРУМ, что я видел :)))))))
;) ;) ;)
Private Sub Command1_Click()
Dim X As Object
Set X = CreateObject("excel.Application")
X.Visible = False
With X.workbooks.Open(FileName:="C:\Kurs@\Excel\Tab.xls")
X.Worksheets("Лист1").Range("H7").Value = Text1.Text
.Close saveChanges:=True
End With
End Sub
Всем огромное спасибо ( pashulka - RESPECT :))) )
С главной проблемой справился))))
Это САМЫЙ ЛУЧШИЙ ФОРУМ, что я видел :)))))))
;) ;) ;)
Код:
Private Sub Command1_Click()
Dim iXLApp As Object, iXLWb As Object
iFullName$ = "C:\Kurs@\Excel\Tab.xls"
If Text1.Text <> "" Then
If Dir(iFullName$) <> "" Then
Set iXLApp = CreateObject("Excel.Application")
Set iXLWb = iXLApp.Workbooks.Open(FileName:=iFullName$)
iXLWb.Worksheets("Лист1").Range("H7").Value = Text1.Text
iXLWb.Close saveChanges:=True
iXLApp.Quit
Set iXLWb = Nothing
Set iXLApp = Nothing
End If
Text1.Text = ""
End If
End Sub
Dim iXLApp As Object, iXLWb As Object
iFullName$ = "C:\Kurs@\Excel\Tab.xls"
If Text1.Text <> "" Then
If Dir(iFullName$) <> "" Then
Set iXLApp = CreateObject("Excel.Application")
Set iXLWb = iXLApp.Workbooks.Open(FileName:=iFullName$)
iXLWb.Worksheets("Лист1").Range("H7").Value = Text1.Text
iXLWb.Close saveChanges:=True
iXLApp.Quit
Set iXLWb = Nothing
Set iXLApp = Nothing
End If
Text1.Text = ""
End If
End Sub
P.S. А убирать проверки не нужно :P ибо мучить MS Excel так и не заполнив текстовое поле не есть хорошо, если конечно Вы не собираетесь удалить имеющееся значение в ячейке "H7"
Цитата:
Originally posted by pashulka
P.S. А убирать проверки не нужно :P ибо мучить MS Excel так и не заполнив текстовое поле не есть хорошо, если конечно Вы не собираетесь удалить имеющееся значение в ячейке "H7"
Код:
Private Sub Command1_Click()
Dim iXLApp As Object, iXLWb As Object
iFullName$ = "C:\Kurs@\Excel\Tab.xls"
If Text1.Text <> "" Then
If Dir(iFullName$) <> "" Then
Set iXLApp = CreateObject("Excel.Application")
Set iXLWb = iXLApp.Workbooks.Open(FileName:=iFullName$)
iXLWb.Worksheets("Лист1").Range("H7").Value = Text1.Text
iXLWb.Close saveChanges:=True
iXLApp.Quit
Set iXLWb = Nothing
Set iXLApp = Nothing
End If
Text1.Text = ""
End If
End Sub
Dim iXLApp As Object, iXLWb As Object
iFullName$ = "C:\Kurs@\Excel\Tab.xls"
If Text1.Text <> "" Then
If Dir(iFullName$) <> "" Then
Set iXLApp = CreateObject("Excel.Application")
Set iXLWb = iXLApp.Workbooks.Open(FileName:=iFullName$)
iXLWb.Worksheets("Лист1").Range("H7").Value = Text1.Text
iXLWb.Close saveChanges:=True
iXLApp.Quit
Set iXLWb = Nothing
Set iXLApp = Nothing
End If
Text1.Text = ""
End If
End Sub
P.S. А убирать проверки не нужно :P ибо мучить MS Excel так и не заполнив текстовое поле не есть хорошо, если конечно Вы не собираетесь удалить имеющееся значение в ячейке "H7"
Незнаю... просто во сем тне разобрался... а так пустые значения- пустые ячейки... они имеют право на жизнь.... просто вот, что в ковычках писать надо не догнал поэтому вывел тот листинг (((((
P(