Visual Basic - Excel...
3 отговора
305 прегледа
Visual Basic - Excel...
Опитвам се да си напиша едни документчета под Excel, и трябва да си теглят съдържанието на клетките от един определен файл. Т.е. как да изтегля данните от клетка, която се намира в друг файл?
Би могло да го направя като просто задам на някоя клетка това:
='[All Service Cards.xls]Касови апарати'!$B$398
но как да го направя в Visual Basic Editor-а на Excel...
----------------------------------
помислих, хареса ми, помислих пак...
Би могло да го направя като просто задам на някоя клетка това:
='[All Service Cards.xls]Касови апарати'!$B$398
но как да го направя в Visual Basic Editor-а на Excel...
----------------------------------
помислих, хареса ми, помислих пак...
Re: Visual Basic - Excel...
priemam che imam dva faila s imena book1.xls i book2.xls
otvariash book1.xls i vlizash v redaktora na VB : moje da polzvash i modul, i forma - koeto predposhitash. primera, koito ti davam, vzema stoinostta na kletki A1-A10 ot pyrvia sheet ot pyrvia fail (book1) i
dobavia kym tazi stoinost stoinostta na kletki A1-A10 ot pyrvi sheet na vtoria fail (book2)
Dim w As Workbook, w2 As Workbook, i as integer
Excel.Workbooks.Open "book2.xls"
Set w = Excel.Workbooks(1)
w.Activate
Set w2 = Excel.Workbooks(2)
For i = 1 To 10
w.Sheets(1).Range("a" & i).Value = w.Sheets(1).Range("a" & i).Value + w2.Sheets(1).Range("a" & i).Value + 10
Next
otvariash book1.xls i vlizash v redaktora na VB : moje da polzvash i modul, i forma - koeto predposhitash. primera, koito ti davam, vzema stoinostta na kletki A1-A10 ot pyrvia sheet ot pyrvia fail (book1) i
dobavia kym tazi stoinost stoinostta na kletki A1-A10 ot pyrvi sheet na vtoria fail (book2)
Dim w As Workbook, w2 As Workbook, i as integer
Excel.Workbooks.Open "book2.xls"
Set w = Excel.Workbooks(1)
w.Activate
Set w2 = Excel.Workbooks(2)
For i = 1 To 10
w.Sheets(1).Range("a" & i).Value = w.Sheets(1).Range("a" & i).Value + w2.Sheets(1).Range("a" & i).Value + 10
Next
Re: Visual Basic - Excel...
Zdraveite,
Triaabva mi speshno "Makros" za transformirane na
ascii2xls
triabva mi za da obrystam edni ascii failove ot izmervania v excel.
по принцип...как става това с vва?????
благодариа предварително
Triaabva mi speshno "Makros" za transformirane na
ascii2xls
triabva mi za da obrystam edni ascii failove ot izmervania v excel.
по принцип...как става това с vва?????
благодариа предварително
Re: Visual Basic - Excel...
Що направо не си отвориш файловете в ексела. Никакъв макрос не ти трябва