表格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