Vraag : VB knoop op Output aan Excel

Hallo, heeft

I code die de output om van Toegang uit te blinken en de spreadsheet vooraf opmaakt. ik kijk om knopen een sommige VB in op te nemen outputted spreadsheet.

So ik de knopen de gebruikersopties zou willen geven om te sorteren hoogste aantal aan laagste aantal door op bepaalde columns

So bijvoorbeeld, codeert daar de kolom b.

Is ik kan in de knoop van de Output van de Toegang opnemen die tot deze knopen op outputted spreadsheet.

Thanks zou leiden, is
Seamus

Here mijn huidige code:

Private SubCommand5_Click ()
Dim strFile als String
strFile = „F:\MissingDataOutput.xls "
'DoCmd.OutputTo acOutputForm, De strFile Stop van me.Missing- Gegevens, acFormatXLS, acOutputTable False
DoCmd.OutputTo, de „Ontbrekende Stop van Gegevens“, acFormatXLS, strFile, False

Dim oXL als Object
Dim oWB als Object
Dim oWS als Object
Dim FormulaRow als Long

Set oXL = CreateObject („Excel.Application“)
Set oWB = oXL.Workbooks.Open (strFile)
Set oWS = oWB.Sheets (1)
With oWS
FormulaRow =. Cellen (. Rows.Count, „B“). Eind (- 4162). Rij + 2 'xlUp
. Cells.Font.Size = 10
. Rijen (1). Font.Bold = True
.UsedRange.EntireColumn.AutoFit
.range („B: h“) .NumberFormat = „0.00%; [Rood] 0.00% "
.range („B: h“) .NumberFormat = „#, ##0.00; [Rood] #, ##0.00 "
.range („c: e“). Stijl = „Percenten "
.range („B: B“) .NumberFormat = „£#, ##0.00; [Rood] £#, ##0.00 "
.range („F: h“) .NumberFormat = „£#, ##0.00; [Rood] £#, Eind/>
With
oXL.Visible = True

Set oWS = Nothing
Set oWB = Nothing
Set oXL = Nothing
End Sub

Antwoord : VB knoop op Output aan Excel

Wat betreft de code voor de knopen, vaak kunt u een begin ertoe brengen door een macro te registreren om de taak te doen in kwestie, dan uitgevend het zoals nodig.
Andere oplossingen  
 
programming4us programming4us