Резултати от 1 до 5 от общо 5

За разбирачи на Visual Basic 6 спе6но помогнете !!!!

Сподели във Facebook Сподели в Twitter Изпрати на Email Сподели в LinkedIn
  1. Junior Member
    Тук е от
    Jul 2009
    Мнения
    37
    #1

    За разбирачи на Visual Basic 6 спе6но помогнете !!!!

    Правя програма на vb6 ,която трябва да испьлнява функция - при вьвеждане на текст в Tex1 информацията от текстбукса да се извежда в екселска таблица в клетка "А1" примерно!Екселската таблица не е отделна а е добавена чрез контрол на vb6.Тext1 i Sheet1 са на една форма.Как да стане това?Моля помогнете спешно ми е!!!!!!!!!!!

  2.  
     
  3. Member Аватара на shanto
    Тук е от
    Feb 2008
    Мнения
    621
    #2

    Re:За разбирачи на Visual Basic 6 спе6но помогнете !!!!

    Sheet1.range("A1").value=text1.value
    зададено в обекта за въвеждане.

    P.S. Това е общо положение, трябва да се конкретизират отделните параметри
    за конкретната програма!

  4. Junior Member
    Тук е от
    Jul 2009
    Мнения
    37
    #3

    Re:За разбирачи на Visual Basic 6 спе6но помогнете !!!!

    Method or data member not found!
    Дава го на Text1.Value

  5. Junior Member
    Тук е от
    Oct 2003
    Мнения
    55
    #4

    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)

  6. Junior Member
    Тук е от
    Jul 2009
    Мнения
    37
    #5

    Re:За разбирачи на Visual Basic 6 спе6но помогнете !!!!

    Мерси много за помоща!

Сподели във Facebook Сподели в Google Plus Сподели в Twitter Изпрати на Email Сподели в LinkedIn

Подобни теми

  1. При Visual Basic
    От vik-45 във форум Програмиране
    Отговори: 5
    Последно: 15-03-10, 08:09
  2. Visual Basic 6.0 Database-въпрос
    От kalodsun във форум Програмиране
    Отговори: 4
    Последно: 06-02-07, 12:54
  3. Visual Basic 2005
    От Guest във форум Общ - софтуер
    Отговори: 1
    Последно: 15-11-05, 10:33
  4. Visual Basic
    От Sitron във форум Общ - софтуер
    Отговори: 1
    Последно: 10-07-04, 15:05
  5. Visual Basic 6
    От toofy във форум Windows
    Отговори: 5
    Последно: 03-03-02, 00:29

SetCombG.com
SetCombG.com е портален сайт и Форум за битова техника, телевизори, климатици, лаптопи и смартфони, създаден през 1999 година.
Заедно сме над 20 години!
Следвай ни
Горе