Attribute VB_Name = "mdi"
Option Explicit
'成績模塊
    Public recForXM As Recordset
    Public DWKECMC As String
    Public FRMMARKIN_LIST1_TEMP
    Public FRMKCDW_ID As Boolean
'MODDYCX
    Public Kubiao_Xuanze As Integer
    Public DB As Database
    Public Rc As Recordset
    Public BasField(1 To 7) As String
    Public BasFldCnt(1 To 7) As Integer
    Public WhoLdXuehao As Integer
    Public XuehaoLD As Boolean
'黨建模塊
    Public sqlForParty As String
    Public sqlPartyPrint As String
'獎懲助貸補模塊
    Public ZDDH As Integer
    Global KBDH As Integer
    Global KBMC As String
    Public MnuDYCX_Cnt As Integer
    Public colCount As Integer
    Public DYCX_Mnu(1 To 6, 0 To 8) As String
    Public Riqi As Date
    Public Zifu As String
    Public Shuzi As Long
    Public XUEZHE As String
    Global PUBCITY As String
    Global PUBDANWEI As String

'課程字典
  Global ZDKID2 As Integer   '哪個字典庫
  Global ZDKShow2 As String
  Global TEMPZDK As String
'主模塊
    Public DBSTU As Database
    Public Dbstudent As Database
    Public sqlForMain As String '查詢用SQL語句
    Public sqlForPrint As String '打印用SQL語句
    Public ID As String '顯示家庭情況用ID
    Public xh0 As String '打印簡歷
    Public XH As String
    Public dbMark As Database
    Public rcnum As Integer
    Public rctemp As Recordset
    Global WINPATH As String
    Global Password As String
    Global BMP As Boolean
    Global banj As String
    Global BANJXS As String
    Global GSDATABASE
    Global GSRECORDSOURCE
Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long

Public Sub PrintInExcel(ByVal recPrint As Recordset, ByVal FileName As String, ByVal Char As String)
Dim dbExcel As Database
Dim recExcel As Recordset
Set dbExcel = OpenDatabase(App.Path + "\print\" + FileName, False, False, "Excel 8.0;HDR=NO;")
Dim FieldCount As Integer
FieldCount = recPrint.RecordCount
Set recExcel = dbExcel.OpenRecordset("A3:" & Char & "3")
recExcel.MoveLast
recPrint.MoveFirst
Dim I As Integer
While Not recPrint.EOF
  recExcel.AddNew
  For I = 0 To recPrint.Fields.Count - 1
    recExcel.Fields(I).Value = recPrint.Fields(I).Value
  Next I
  recExcel.Update
  recPrint.MoveNext
Wend
End Sub