使用Excel自动生成Java中的Model类

Private Sub CommandButton1_Click()

Set fs = CreateObject("Scripting.FileSystemObject")

fileNm = Range("C3").Value

tbNm = Range("B3").Value
tbId = Range("C3").Value
ctDate = Range("D3").Value
ctNm = Range("E3").Value

classNm = "T" + UCase(Mid(tbId, 3, 1)) + Mid(tbId, 4, Len(tbId))

filePath = "C:/" + classNm + ".java"

Set output = fs.CreateTextFile(filePath, True, True)

output.WriteLine ("package com.nauproject.apm.entity.base;")
output.WriteLine ("")
output.WriteLine ("import java.io.Serializable;")
output.WriteLine ("")
output.WriteLine ("import org.seasar.dao.annotation.tiger.Bean;")
output.WriteLine ("")
output.WriteLine ("/**")
output.WriteLine (" * <P>")
output.WriteLine (" * " + tbNm + " " + classNm + " 僋儔僗")
output.WriteLine (" * </P>")
output.WriteLine (" * <BLOCKQUOTE> Copyright (C) 2008-2009, apm. All rights reserved. </BLOCKQUOTE>")
output.WriteLine (" * <P>")
output.WriteLine (" * </P>")
output.WriteLine (" * <B>夵斉棜楌:</B> <BLOCKQUOTE> " + ctDate + " 1.0.0 " + ctNm + " 怴婯嶌惉 </BLOCKQUOTE>")
output.WriteLine (" *")
output.WriteLine (" * @author " + ctNm)
output.WriteLine (" * @since " + ctDate)
output.WriteLine (" * @see")
output.WriteLine (" * @version 1.0, " + ctDate)
output.WriteLine (" */")
output.WriteLine ("@Bean(table = """ + tbId + """)")
output.WriteLine ("public class " + classNm + " implements Serializable {")
output.WriteLine ("")
output.WriteLine ("    /**")
output.WriteLine ("     * @see serialVersionUID")
output.WriteLine ("     */")
output.WriteLine ("    private static final long serialVersionUID = ;")
output.WriteLine ("")

countC = 0

For i = 8 To 208

If Cells(i, 3).Value <> "" Then
countC = countC + 1
End If

Next

For k = 1 To countC

output.WriteLine ("    /**")
output.WriteLine ("     * @see " + Cells(k + 7, 2))
output.WriteLine ("     */")
output.WriteLine ("    private " + Cells(k + 7, 4).Value + " " + Cells(k + 7, 3).Value + ";")
output.WriteLine ("")

Next

For k = 1 To countC

If Cells(k + 7, 4).Value = "int" Then
paramId = "int"
Else

If Cells(k + 7, 4).Value = "String" Then
paramId = "str"
Else

If Cells(k + 7, 4).Value = "Date" Then
paramId = "date"
Else
paramId = ""
End If
End If

End If

uId = UCase(Mid(Cells(k + 7, 3).Value, 1, 1)) + Mid(Cells(k + 7, 3).Value, 2, Len(Cells(k + 7, 3).Value))

output.WriteLine ("    /**")
output.WriteLine ("     * @param " + paramId + uId + " " + Cells(k + 7, 2))
output.WriteLine ("     */")
output.WriteLine ("    public final void set" + uId + "(final " + Cells(k + 7, 4).Value + " " + paramId + uId + ") {")
output.WriteLine ("        this." + Cells(k + 7, 3).Value + " = " + paramId + uId + ";")
output.WriteLine ("    }")
output.WriteLine ("")
output.WriteLine ("    /**")
output.WriteLine ("     * @return " + Cells(k + 7, 2))
output.WriteLine ("     */")
output.WriteLine ("    public final " + Cells(k + 7, 4).Value + " get" + uId + "() {")
output.WriteLine ("        return " + Cells(k + 7, 3).Value + ";")
output.WriteLine ("    }")
output.WriteLine ("")

Next

output.WriteLine ("}")
output.Close

End Sub