VB＋access把MSHFlexGrid中数据输出到word
PrivateSubCommand1_Click()OnErrorResumeNextDimwAppAsNewApplicationDimwDocAsDocumentDimwNewTableAsTableSetwDoc=wApp.Documents.AddSelection.RangeSetwNewTable=wDoc.Tables.Add(wDoc.Range,MSHFlexGrid1.Rows,MSHFlexGrid1.Cols)Fori=0ToMSHFlexGrid1.Rows-1Forj=0ToMSHFlexGrid1.C
下载地址
用户评论
