< návrat zpět

MS Excel

Téma: VBA - otevření souboru rss

Zaslal/a Fantasyk 16.7.2020 18:01

FantasykZdravím,
mám napsané makro:
Dim w As Workbook
Set w = Workbooks.Open(Filename:="\\10.71.68.30\_common\_PRODUCTION\FRICTION\LISY\Zpian\dlouhý.xls")
Range("A1:AC2000").Select
Selection.Copy
w.Close SaveChanges:=True
Set w = Nothing
Sheets("Zpian").Select
Range("A1:AC2000").Select
ActiveSheet.Paste

Ale, když se to připojí a otevře soubor, tak ten soubor je zaheslovaný a chtěl bych, aby to kliklo jen na tlačítko ( Jen pro čtení )
ale nevím jak to udělat..

Dekuji moc

Zaslat odpověď >
elninoslov(16.7.2020 19:12)#047347
elninoslov
Parameter procedúry Open ?
ReadOnly:=Truecitovat
Fantasyk(17.7.2020 14:36)#047353
Fantasyk

elninoslov napsal/a:

Parameter procedúry Open ?
ReadOnly:=True


Když jsem to napsal takhle:
Set w = Workbooks.Open(Filename:="\\10.71.68.30\_common\_PRODUCTION\FRICTION\LISY\Zpian\dlouhý.xls").ReadOnly = True

Tak mi to píše chybu :
Compile ERROR

a makro ani nejede
Type Mismatchcitovat
Jiří497(17.7.2020 14:45)#047354
avatar
Set w = Workbooks.Open(Filename:="\\10.71.68.30\_common\_PRODUCTION\FRICTION\LISY\Zpian\dlouhý.xls", ReadOnly:=True)citovat
Fantasyk(17.7.2020 15:22)#047355
Fantasyk

Jiří497 napsal/a:

Set w = Workbooks.Open(Filename:="\\10.71.68.30\_common\_PRODUCTION\FRICTION\LISY\Zpian\dlouhý.xls", ReadOnly:=True)


děkuji moc = člověk se stále učí ..

Děkuji moccitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje