表格app源碼

① 怎麼用java來製作EXCEL報表源代碼應該怎麼寫有專門的表格軟體或報表

可以用FineReport報表軟體實現。finereport是純java軟體，類excel設計模式，是一款功能極其牛掰的表格工具，可與資料庫直接對接（一般的資料庫，Oracle，SqlServer，MySql,DB2,Sybase,Informix等都支持），文本數據直接導入當然也支持，企業級額應用中包括設置定時報表、自定匯總數據發送郵件、報表許可權分配、決策平台搭建等，因為是專業的報表軟體，功能很強大，其實很多業內人士都在用這款軟體，另外幾乎不用自己編寫代碼，所以新手很容易上手使用。應該會比較適合您的，滿意的話可以採納的哦，謝謝了

② 高分求免費的,php+mysql的，在線表格管理源碼

開網店的話，下載個ECSHOP，不是簡單很多嗎。

③ 別人用excel表格做的管理系統怎麼查看此管理系統的源碼

1. 新建excel文件，alt+F11進入VBA編輯器，插入模塊，輸入以下代碼：

Sub MoveProtect()

Dim FileName As String

FileName = Application.GetOpenFilename("Excel文件（*.xls & *.xla）,*.xls;*.xla", , "VBA破解")

If FileName = CStr(False) Then

Exit Sub

Else

VBAPassword FileName, False ' 引用下面的自定義函數

End If

End Sub

Private Function VBAPassword(FileName As String, Optional Protect As Boolean = False)

If Dir(FileName) = "" Then

Exit Function

Else

FileCopy FileName, FileName & ".bak"

End If

Dim GetData As String * 5

Open FileName For Binary As #1

Dim CMGs As Long

Dim DPBo As Long

For i = 1 To LOF(1)

Get #1, i, GetData

If GetData = "CMG=""" Then CMGs = i

If GetData = "[Host" Then DPBo = i - 2: Exit For

Next

If CMGs = 0 Then

MsgBox "請先對VBA編碼設置一個保護密碼...", 32, "提示"

Exit Function

End If

If Protect = False Then

Dim St As String * 2

Dim s20 As String * 1 '取得一個0D0A十六進制字串

Get #1, CMGs - 2, St '取得一個20十六制字串

Get #1, DPBo + 16, s20 '替換加密部份機碼

For i = CMGs To DPBo Step 2

Put #1, i, St

Next '加入不配對符號

If (DPBo - CMGs) Mod 2 <> 0 Then

Put #1, DPBo + 1, s20

End If

MsgBox "文件解密成功......", 32, "提示"

Else

Dim MMs As String * 5

MMs = "DPB="""

Put #1, CMGs, MMs

MsgBox "對文件特殊加密成功......", 32, "提示"

End If

Close #1

End Function

2. 運行上面的代碼，選擇你的文件，移除密碼成功後打開文件，按alt+F11查看源碼：

④ VB 操作EXCEL 源碼

'工程-引用-Microsoft Excel Object library(勾選此項)
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
'寫文件
Private Sub Command1_Click()
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Add '新建EXCEL工件簿文件
Set xlSheet = xlBook.Worksheets(1)
For i = 1 To 10 '10行
For j = 1 To 10 '10列
xlSheet.Cells(i, j) = i * j
Next j
Next i
xlSheet.SaveAs "d:\test.xls" '按指定文件名存檔
xlApp.Quit '結束EXCEL對象
Set xlApp = Nothing '釋放xlApp對象
End Sub
'讀文件
Private Sub Command2_Click()
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Application.Workbooks.Open("d:\test.xls")
Set xlSheet = xlBook.Worksheets(1)
Dim s As String
For i = 1 To 10 '讀取10行
For j = 1 To 10 '讀取10列
s = s & xlSheet.Cells(i, j) & Space(5)
Next j
s = s & vbNewLine '另起一行
Next i
Print s
xlApp.Quit '結束EXCEL對象
Set xlApp = Nothing '釋放xlApp對象
End Sub

兩個命令按鈕，先寫文件，再讀出來輸出到窗體，最簡單的讀寫操作。

⑤ 怎麼從excel表格里提取源代碼

提取方法如下：

1. Dim strText$
   
2. Dim httpRequest As Object
   
3. Dim myClip As Object
   
4. '剪貼板對象
   
5. Set myClip = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
   
6. Set httpRequest = CreateObject("Msxml2.XMLHTTP.3.0")
   
7. With httpRequest
   
8. .Open "GET", 網址, False
   
9. .send
   
10. strText = .responseText
    
11. End With
    
12. With myClip
    
13. '網頁原始數據放入剪貼板中
    
14. .SetText strText '變數
    
15. .PutInClipboard
    
16. MsgBox "源代碼已經復制到剪貼板中"
    
17. End With

⑥ 有誰有EXCEL表格編程統計分析雙色球的軟體（需包含源代碼）

⑦ 請問大家有沒有QT做的一些小型的軟體源碼(涉及到表格的最好!),比如學籍管理軟體,信息管理系統等等////

Qt自帶的demo就很好，各個方面都有介紹到，源碼也很清晰，有什麼不會的就先看看demo里有沒有例子吧。

http://sourceforge.net/ 這個是一個開源網站，嗯，應該有些有用的東西。。

⑧ C#如何導入Excle表格求源碼

一、首先簡要描述一下如何操作Excel表
先要添加對Excel的引用。選擇項目-〉添加引用-〉COM-〉添加Microsoft Excel 11.0。（不同的office講會有不同版本的dll文件）。
using System.Reflection;
using Excel = Microsoft.Office.Interop.Excel;

string UserName =System.Environment.UserName.ToString();//得到當前操作系統的用戶名稱

//產生一個Excel.Application的新進程
Excel.ApplicationClass OldApp = new Microsoft.Office.Interop.Excel.ApplicationClass();
//打開目標表，filename為目標表路徑
OldApp.Application.Workbooks.Open(filename,Missing.Value,Missing.Value,Missing.Value,Missing.Value,Missing.Value,Missing.Valu

e,Missing.Value,Missing.Value,Missing.Value,Missing.Value,Missing.Value,Missing.Value,Missing.Value,Missing.Value);
//產生新的workbook
Excel.Workbook mybook = OldApp.Workbooks[1];
mysheet = (Excel.Worksheet)mybook.Worksheets[1];
//得到A9單元格的值
Excel.Range r = mysheet.get_Range(mysheet.Cells[9,1],mysheet.Cells[9,1]);
Str = r.Text.ToString().Trim()；

//產生一個Excel.Application的新進程 ，把上表的數據導入的新的EXCEL中，savefilename為新EXCEL表路徑
Excel.ApplicationClass NewApp = new Microsoft.Office.Interop.Excel.ApplicationClass();
NewApp.Application.Workbooks.Open(savefilename,Missing.Value,Missing.Value,Missing.Value,Missing.Value,Missing.Value,Missing.

Value,Missing.Value,Missing.Value,Missing.Value,Missing.Value,Missing.Value,Missing.Value,Missing.Value,Missing.Value);

NewApp.Cells[2,9] = OldApp.Cells[2,1];
NewApp.Cells[2,14] = OldApp.Cells[2,3];
NewApp.Cells[2,21] = mysheet.get_Range(mysheet.Cells[2,13],mysheet.Cells[2,13]).Text.ToString();

int j;
int i;
for(j=13;j<=((Excel.Worksheet)OldApp.Worksheets.get_Item(1)).UsedRange.Rows.Count;j++)
{
for(i = 1;i<=4;i++)
{
NewApp.Cells[j-7,i] = OldApp.Cells[j,i];
}
for(i=7;i<=19;i++)
{
NewApp.Cells[j-7,i-2]= OldApp.Cells[j,i];
}
}

File.Delete(@"c:\Documents and Settings\"+UserName+@"\My Documents\Resume.xlw"); //刪除Excel產生的文件
NewApp.Visible = true;
OldApp.Quit();

二、套用模板
//將模板文件復制到一個新文件中
private bool CopyMode(string savefilename) //savefilename為需要套用模板的表路徑
{
if(!File.Exists(ModePath)) //ModePath為模板路徑
{
MessageBox.Show("模板不存在!");
return false;
}
if(File.Exists(savefilename))
{
File.Delete(savefilename);
}
File.Copy(ModePath,savefilename);
return true;
}
三、其他
因為項目上需要導入幾個表數據，所以需要對表進行區別，通過比較EXCEL表頭的數據來判斷是哪個表
//添加引用
using System.Text.RegularExpressions;

#region 利用正則表達式與表頭匹配
private bool Regular(string str,string oldstr) //str為需要在oldstr匹配的欄位
{
Regex reg = new Regex(str);
Match m = reg.Match(oldstr);
if(m.Success)
{
return true;
}
else
return false;

}
#endregion

⑨ 安卓表格控制項怎麼開發

Android 控制項開發功底不錯的話推薦使用自定義的DataGridView，當然一般的表格在GitHub上面是可以找到很多開源的DataGridView自定義控制項源碼的，可以嘗試一下。如果對自定義控制項開發不熟悉的話可以使用tableLayout或者是調用JavaScript

⑩ 能否找到應用於html中表格和表單使用的源代碼

Function FormatText(String) '''替換空格，尖括弧，回車。可防html。
String=Server.HTMLEncode(String)
'String=Replace(String,"<","〈")
'String=Replace(String,">","〉")
String=Replace(String,CHR(32),"")
String=Replace(String,CHR(13)&CHR(10), "<br>")
FormatText=String
End Function

Function FormatCode(String) '''完全原樣，可防html，可用作顯示源代碼。
String="<xmp>"&String&"</xmp>"
FormatCode=String
End Function

Function FormatHTML(String) '''限制無法
使用on.....事件，無法使用JavaScript。
String=Replace(String,"onmouseover","0nmouseover",1,-1,vbTextCompare)
String=Replace(String,"onmouseout","0nmouseout",1,-1,vbTextCompare)
String=Replace(String,"onmousedown","0nmousedown",1,-1,vbTextCompare)
String=Replace(String,"onmouseup","0nmouseup",1,-1,vbTextCompare)
String=Replace(String,"onmousemove","0nmousemove",1,-1,vbTextCompare)
String=Replace(String,"onclick","0nclick",1,-1,vbTextCompare)
String=Replace(String,"ondblclick","0ndblclick",1,-1,vbTextCompare)
String=Replace(String,"onkeypress","0nkeypress",1,-1,vbTextCompare)
String=Replace(String,"onkeydown","0nkeydown",1,-1,vbTextCompare)
String=Replace(String,"onkeyup","0nkeyup",1,-1,vbTextCompare) '各種事件
String=Replace(String,"Script:","Script：",1,-1,vbTextCompare) 'JavaScript:,JScript:VBScript:
String=Replace(String,"<script","<xmp><script",1,-1,vbTextCompare)
String=Replace(String,"</script>","</script></xmp>",1,-1,vbTextCompare) '<script>...</script>標簽
FormatHTML=String
End Function

Function FormatHTMLEx(String) '''不作任何限制
FormatHTMLEx=String
End Function

Function FormatSQL(String) '''防止sql語句出錯
String=Replace(String,"'","''")
FormatSQL=String
End Function