M的部落格

package tw.edu.pccu.MyGame003;

import android.app.Activity;

import android.os.Bundle;

import android.util.DisplayMetrics;

設計結構四大金剛

[初始化]、[計算]、[繪圖]、[終結]

package tw.edu.pccu.MyGame003;

參考連結：

[在 Server 端存取 Excel 檔案的利器：NPOI Library] http://msdn.microsoft.com/zh-tw/ee818993.aspx

[MIS2000 Lab.--微軟MVP的ASP.NET 4.5專題實務/教學與分享] http://www.dotblogs.com.tw/mis2000lab/Tags/NPOI/default.aspx

--------------------------------------------------------------------------------------------------------------------------------

Imports NPOI
Imports NPOI.HPSF
Imports NPOI.HSSF
Imports NPOI.HSSF.Util
Imports NPOI.HSSF.Model
Imports NPOI.HSSF.UserModel
Imports NPOI.POIFS.FileSystem

'函式_產生Excel檔
Public Function f_Clert_Excel() As String
    '建立 Excel File
   Dim sL_Year, sL_Month As String
   sL_Year = sG_Year '"2011"
   sL_Month = sG_Month '"05"
   Dim objL_WorkBook As HSSFWorkbook = New HSSFWorkbook 'XLS File
   Dim ms As MemoryStream = New MemoryStream
   Dim objL_Sheet As HSSFSheet = objL_WorkBook.CreateSheet((sL_Year - 1911) & sL_Month) '建立活頁簿
   Dim style1 As HSSFCellStyle = objL_WorkBook.CreateCellStyle
   Dim style2 As HSSFCellStyle = objL_WorkBook.CreateCellStyle
   Dim font1 As HSSFFont = objL_WorkBook.CreateFont
   Dim font2 As HSSFFont = objL_WorkBook.CreateFont
   Dim cell As HSSFCell
   Dim ExportDate As String = Format(Now(), "yyyyMMdd_HHmm")
   Dim sL_FileName As String = (sL_Year - 1911) & "." & sL_Month & ExportDate & ".xls"
   Dim sL_Path As String = Application.StartupPath + "\Log\" + sL_FileName
   Dim fileS As FileStream = New FileStream(sL_Path, FileMode.Create)
End Function