Cómo mostrar una hoja de trabajo EXCEL en formato VB.

1. Llame al objeto de Excel para abrir la hoja de trabajo;

Atenuar como nueva aplicación de Excel

Atenuar como libro de trabajo

Dim os como hoja de trabajo

Establecer ow = oe.Workbooks.Add

Establecer os = ow.Worksheets(1)

oe.Visible = True

2. Cancele la barra de título, la barra de menú y la barra de herramientas del formulario de Excel;

Para cada barra en Application.CommandBars

Si no es la barra.BuiltIn y no la barra .Visible Luego bar.Delete

Siguiente

Application.CommandBars("Barra de menú de hoja de cálculo").Position = msoBarFloating

Application.CommandBars("Barra de menú de hoja de cálculo"). "). Izquierda = -Application.CommandBars("Barra de menús de la hoja de cálculo").Ancho + 1

Application.CommandBars("Barra de menús de la hoja de cálculo").Top = -Application.CommandBars("Barra de menús de la hoja de cálculo" ).Altura + 1

3. Establezca el formulario de Excel como un "subformulario" de un formulario, ajuste el tamaño y colóquelo en la posición adecuada

Dim IStyle As Long

p>

IStyle = GetWindowLong(hwnd, GWL_STYLE)

IStyle = IStyle y no WS_CAPTION y no WS_EX_APPWINDOW

SetWindowLong hwnd, GWL_STYLE, IStyle

ShowWindow hwnd, SW_SHOW

DrawMenuBar hwnd

SetParent hwnd, Form1.hwnd