За разбирачи на Visual Basic 6 спе6но помогнете !!!!
Правя програма на vb6 ,която трябва да испьлнява функция - при вьвеждане на текст в Tex1 информацията от текстбукса да се извежда в екселска таблица в клетка "А1" примерно!Екселската таблица не е отделна а е добавена чрез контрол на vb6.Тext1 i Sheet1 са на една форма.Как да стане това?Моля помогнете спешно ми е!!!!!!!!!!!
Re:За разбирачи на Visual Basic 6 спе6но помогнете !!!!
Sheet1.range("A1").value=text1.value
зададено в обекта за въвеждане.
P.S. Това е общо положение, трябва да се конкретизират отделните параметри
за конкретната програма!
Re:За разбирачи на Visual Basic 6 спе6но помогнете !!!!
Method or data member not found!
Дава го на Text1.Value
Re:За разбирачи на Visual Basic 6 спе6но помогнете !!!!
Visual Basic 6 не поддържа "Range". Oпитай вместо "Range("A1")" с "cells(1,1)". Няма да ти работи и Range ("A1:B10").Merge
Няколко реда писани на VB6 дано са ти полезни. Не съм 100% сигурен но дали е отворен като външен файл или е добавен във форма няма никакво значение. Обработва се по един и същи начин.
Успех
Dim xL As Object
Dim xL_Pom As Object
Dim xLProfesii As Object
Dim xLLPSSP As Object
..................
Set xL = GetObject("d:\.....\........\Dosie.xls") - тук отваря външен файл!!!!!
Set xLProfesii = xL.Worksheets("Profesii")
Set xLLek = xL.Worksheets("Lekari")
Set xL_Pom = xL.Worksheets("Print")
Set xLSpis = xL.Worksheets("Spisyk")
.....................
'
' Прехвърля от една страница в друга
'
For i = 2 To Br_Lica
ProgressBar1.Value = i
If Text1.Text = xLSpis.Cells(i, 4) Then
xL_Pom.Cells(red, 2) = xLSpis.Cells(i, 2)
xL_Pom.Cells(red, 1) = xLSpis.Cells(i, 1)
xL_Pom.Cells(red, 4) = xLSpis.Cells(i, 4)
xL_Pom.Cells(red, 5) = xLSpis.Cells(i, 5)
xL_Pom.Cells(red, 6) = xLSpis.Cells(i, 6)
red = red + 1
End If
Next i
'
' променя цвета и дебелината на линийте и цвета на клетката
'
For K = 7 To 14
With xL_Pom.Cells(red + K, 20)
With .Borders(7)
.Weight = 2
.Color = RGB(0, 0, 0)
End With
End With
With xL_Pom.Cells(red + K, 32)
With .Borders(10)
.Weight = 2
.Color = RGB(0, 0, 0)
End With
End With
Next K
'
' Оформя някаква клетка
'
With xL_Pom.Cells(red + 12, 19)
.Value = "80"
.Font.Size = 7
.Font.Bold = True
.VerticalAlignment = -4108
.HorizontalAlignment = -4152
End With
'
' Записва в клетка
'
xL_Pom.Cells(red + 22, 2) = "............"
xL_Pom.Cells(red + 22, 11) = "...................."
xL_Pom.Cells(red + 22, 22) = "...................
xL_Pom.Cells(red + 23, 3) = "........................"
'
' Чете от клетки и записва в масив
'
For i = 1 To UBound(Prof, 1)
ProgressBar1.Value = i
Prof(i, 1) = xLProfesii.Cells(1, i + 1)
Prof(i, 2) = xLProfesii.Cells(2, i + 1)
Prof(i, 3) = xLProfesii.Cells(3, i + 1)
Re:За разбирачи на Visual Basic 6 спе6но помогнете !!!!
Мерси много за помоща! :god :god