Re: odczyt danych z arkusza excela

Article View: pl.comp.lang.vbasic

Article #92229

Back to pl.comp.lang.vbasic Previous Next

#92229

From: Stanislaw
Date: Thu, 20 Oct 2005 18:13

47 lines
2292 bytes

Moja poprzednia podpowiedź była cząstkowa
liczyłem,że "dośpiewasz" sobi resztę
 - przedstawiam w takim razie kompletną procedurę:

Private Sub read_log_cmd_Click()

Dim AppExcel As Object
Set AppExcel = GetObject("c:\mojlog13Apr05.xls")

Dim p_kraj(63, 19)  As String
Dim i               As Long
Dim z               As Long


With AppExcel.Worksheets("Arkusz1")
    For i = 0 To 18
          For z = 0 To 62
                p_kraj(z, i) = .Cells(z + 6, i + 3).Value
          Next z
    Next i
End With

For i = 0 To 18
    For z = 0 To 62
          MsgBox p_kraj(z, i)
    Next z
Next i

AppExcel.Close SaveChanges:=False

End Sub

Założyłem, że dane chcesz pobierać z arkusza "Arkusz1".


> Czy  metoda:
> AppExcel.Range("C6:U68").Select
> nie jest szybsza niz odczyt pojedynczych komorek w 2 petlach??

Po pierwsze - to w tym przypadku nie zadziała!
po drugie - zaznaczanie zawsze spowalnia działanie procedury
po trzecie - muszą być 2 pętle, aby odczytać dane z odpowiedniego
wiersza i z odpowiedniej komórki.

--
Pozdrawiam
Stanislaw

Technical Details

Message-ID: <1129832019.181955.54790@g43g2000cwa.googlegroups.com>

Path:

mbox-mo1.pugleaf.net!number1.nntp.dca.giganews.com!border1.nntp.dca.giganews.com!nntp.giganews.com!postnews.google.com!g43g2000cwa.googlegroups.com!not-for-mail

References:

<1129802722.048515.297260@g43g2000cwa.googlegroups.com> <1129804852.338526.69360@g49g2000cwa.googlegroups.com> <1129821758.325818.84220@g43g2000cwa.googlegroups.com>

Show Full Headers

Complete Article Headers

Path: mbox-mo1.pugleaf.net!number1.nntp.dca.giganews.com!border1.nntp.dca.giganews.com!nntp.giganews.com!postnews.google.com!g43g2000cwa.googlegroups.com!not-for-mail
From: "Stanislaw" <stanislaw_@op.pl>
Newsgroups: pl.comp.lang.vbasic
Subject: Re: odczyt danych z arkusza excela
Date: 20 Oct 2005 11:13:39 -0700
Organization: http://groups.google.com
Lines: 48
Message-ID: <1129832019.181955.54790@g43g2000cwa.googlegroups.com>
References: <1129802722.048515.297260@g43g2000cwa.googlegroups.com> <1129804852.338526.69360@g49g2000cwa.googlegroups.com> <1129821758.325818.84220@g43g2000cwa.googlegroups.com>
NNTP-Posting-Host: 83.175.176.33
Mime-Version: 1.0
X-Trace: posting.google.com 1129832024 4443 127.0.0.1 (20 Oct 2005 18:13:44 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Thu, 20 Oct 2005 18:13:44 +0000 (UTC)
User-Agent: G2/0.2
X-HTTP-UserAgent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1),gzip(gfe),gzip(gfe)
Complaints-To: groups-abuse@google.com
Injection-Info: g43g2000cwa.googlegroups.com; posting-host=83.175.176.33; posting-account=q9SwWg0AAACsZGpqQVbocTuYdhIZQRhD
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

Reply to Parent Message