| |
以下のコードでmdbからクエリをexcelに入れて印刷しようとしています。
Dim mycon As ADODB.Connection
Dim fin As String
Dim ador As Excel.Range
Dim adorr As ADODB.Recordset
Set mycon = New ADODB.Connection
fin = "**.mdb"
With New Excel.Application
Set ador = .Workbooks.Open("**.xls").ActiveSheet.Range("a2")
.Visible = True
End With
With ador.Worksheet.PageSetup
.LeftMargin = 0
.RightMargin = 0
.TopMargin = 0
.BottomMargin = 0
.CenterHorizontally = True
.CenterVertically = True
.FitToPagesWide = 1
.FitToPagesTall = 1
.PrintGridlines = True
End With
ador.Worksheet.PrintPreview
With mycon
.Provider = "microsoft.jet.oledb.4.0"
.ConnectionString = "data source=" & fin
.Open
Set adorr = .Execute("** クエリ")
ador.CopyFromRecordset adorr
With ador.CurrentRegion.Borders
.LineStyle = xlDouble
End With
adorr.Close
mycon.Close
End With
mdbには商品コードフィールドがありそのフィールドには同じ数字が3桁ありその3文字を非表示にしたいです。商品コード12345678なら45678のように左3文字をフィールド全て非表示にするやり方をご教授お願いいたします。また、印刷に関してもご指摘ありましたら、重ねてお願いいたします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
