dotNETportal.cz

Ahojte

Aký je príkaz na otvorenie excel súboru ako read only.

Proste kliknem na button a otvory sa mi požadovaný súbor ako read only.

ďakujem

Otvorenie excel súboru ako read only (bez klikanie na button a otvory) :

Dim wb As Excel.Workbook = Excel.Application.Workbooks.Open(FileName:=filename, ReadOnly:=True)

to áno ale toto mi otvorí v aplikácií Excel .

ja by som ho potreboval ako klasický file otvoriť ako keby ho dvojklikom otvorím a otvoril by sa excel ale len ako read only

týmto ten subor otvorím ale nie ako read only

System.Diagnostics.Process.Start

Ďakujem

Tak zkus tohle z MSDN fóra :

Dim startInfo As New ProcessStartInfo("Excel.exe")
'The "/r" is to open the file read only and the
' chr(34) encloses the filename in double-quotes in case the path includes spaces
Dim sFullFilePath As String = "C:\WorkbookToBeOpenReadOnly.xls(x)"
startInfo.Arguments = "/r " & Chr(34) & sFullFilePath & Chr(34)
Process.Start(startInfo)

Ahoj

Dakujem super fungovalo to.

Takto to dělám v C#, tak zkuste z toho vyjít přepsat to do VB. Musí se Excel spustit jako COM Excel.Application objekt, na něm se pak volá Open, kde lze nastavit ReadOnly na true. Poté se okno MS Excelu zobrazí nastavením Visible na true.

Type excelAppType = Type.GetTypeFromProgID("Excel.Application");
                if (excelAppType == null)
                {
                    MessageBox.Show(string.Format("Soubor nelze otevřít, protože nebyl nalezen Microsoft Excel."), ApplicationInfo.Title, MessageBoxButton.OK, MessageBoxImage.Warning);
                    return;
                }

                dynamic excelApp = Activator.CreateInstance(excelAppType) as dynamic;
                if (excelApp != null)
                {
                    excelApp.Workbooks.Open(filePath, System.Reflection.Missing.Value, true);
                    excelApp.Visible = true;
                }