Kod wykluczający nagłówki kolumn z przeniesienia do programu Excel 2007 z programu Access 2007
Oto kod, którego używam.
Działa dobrze, ale muszę wiedzieć, jaki dodatkowy kod jest wymagany do wykluczenia nagłówków kolumn.
<code>Private Sub Command104ContrDonatWeekly_Click() On Error GoTo Command104ContrDonatWeekly_Click_Err DoCmd.OpenQuery "Contributors Who Donated in Past Week", acViewNormal, acEdit xlfile = "C:\Users\Michael1\Desktop\KSN\DistributionListWeekly.xlsb" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, _ "Contributors Who Donated in Past Week", xlfile, True, "EmailList" Shell "Excel.exe " & xlfile, vbNormalFocus Command104ContrDonatWeekly_Click_Exit: Exit Sub Command104ContrDonatWeekly_Click_Err: MsgBox Error$ Resume Command104ContrDonatWeekly_Click_Exit End Sub </code>
Oto kod z
Jak napisać kod VBA, aby ukryć wszystkie nagłówki kolumn i wierszy w programie Excel?
nie wiem dokładnie, w którym miejscu należy umieścić kod, którego już używam.
<code>Private Sub hideHeadings() Dim wrkbk As Workbook Dim wrksh As Worksheet Dim prev As Window Set prev = ActiveWindow For Each wrkbk In Workbooks For Each wrksh In wrkbk.Worksheets wrksh.Activate ActiveWindow.DisplayHeadings = False Next wrksh Next wrkbk prev.Activate End Sub </code>