如何在excel中创建“数据库”

Excel数据库创建方法 

1、首先新建一个Excel表格

2、在新建 Microsoft Excel 工作表中输入要编辑的内容。如图：

3、选中所编辑的内容，在名称框中输入数据库的名称并按回车键。（注：在此把新建的数据库命名为“普实软件”）

4、保存新建的 Microsoft Excel 工作表，数据库创建完成。

用vba可以实现。

下面提供我给客户写的程序一部分，你可以参考。

Sub FYMXDL() ‘这个是导入数据库的

Dim XQID As Integer

Dim JZID As Integer

Dim FYID As Integer

Dim FBXZ As String '分包性质

Dim DW As String

Dim SARR(1 To 31) As Double

Dim rst As New ADODBRecordset

mYpath = ThisWorkbookPath & "\jzfydataaccdb"

Set cONn = CreateObject("ADODBConnection")

cONnConnectionString = "Provider=MicrosoftAceOleDB120;Data Source=" & mYpath

cONnConnectionString = cONnConnectionString & ";Jet OLEDB:Database "

cONnOpen

XQID = Cells(3, 2)Value

JZID = Cells(3, 5)Value

'清空改小区-建筑的费用明细

Sql = "delete from fymxb where 小区ID=" & XQID & " AND 建筑ID = " & JZID

cONnExecute Sql

Const kshh = 7

hh = kshh

Do While Cells(hh, 3)Value > 0

FYID = Cells(hh, 3)Value

FBXZ = Cells(hh, 11)Text

For i = 1 To 31

SARR(i) = Round(Cells(hh, 13 + i - 1)Value, 2)

Next i

Sql = "INSERT INTO fymxb(小区ID,建筑ID,费用ID,分包性质,工作量,单价合计_中标,人工费_中标, 主材费_中标, 辅材费_中标, 机械费_中标, 管理费_中标, 利润_中标,规费_中标,税金_中标,合价_中标,单价合计_标准成本,人工费_标准成本,主材费_标准成本,辅材费_标准成本,机械费_标准成本,管理费_标准成本,利润_标准成本,规费_标准成本,税金_标准成本,合价_标准成本,单价合计_实际成本,人工费_实际成本,主材费_实际成本,辅材费_实际成本,机械费_实际成本,管理费_实际成本,利润_实际成本,规费_实际成本,税金_实际成本,合价_实际成本) VALUES (" & XQID & ", " & JZID & ", " & FYID & ", '" & FBXZ & "'"

For i = 1 To 31

Sql = Sql & "," & SARR(i)

Next i

Sql = Sql & " )"

cONnExecute Sql

hh = hh + 1

Loop

End Sub

Sub FYMXDc() '导出费用明细

Dim jgarr(1 To 5, 1 To 2) As String '存放各级名称:1-id 2-名称

Dim XQID As Integer

Dim JZID As Integer

Dim FYID As Integer

Dim FBXZ As String '分包性质

Dim DW As String

Dim SARR(1 To 31) As Double

Dim rst As New ADODBRecordset

Const kshh = 7

mYpath = ThisWorkbookPath & "\jzfydataaccdb"

Set cONn = CreateObject("ADODBConnection")

cONnConnectionString = "Provider=MicrosoftAceOleDB120;Data Source=" & mYpath

cONnConnectionString = cONnConnectionString & ";Jet OLEDB:Database "

cONnOpen

XQID = Cells(3, 2)Value

JZID = Cells(3, 5)Value

'清空EXCEL

Range("A7：AQ1000")ClearContents

Sql = "SELECT from fymxb where 小区ID=" & XQID & " AND 建筑ID = " & JZID

rstOpen Sql, cONn, adopenkeyset, adlockoptimistic

If rstRecordCount > 0 Then

ARR = rstGetRows

Else

Exit Sub

End If

rstClose

Set rst = Nothing

hh = UBound(ARR, 2)

lh = UBound(ARR, 1)

For i = 0 To hh

Cells(kshh + i, 2) = ARR(0, i) 'ID

Cells(kshh + i, 3) = ARR(3, i) '费用ID

myid = ARR(3, i)

For j = 4 To 36

Cells(kshh + i, j + 7) = ARR(j, i) '分包性质后

Next j

'rstClose

'Set rst = Nothing

Sql = "select 名称,fid,SID,LEV,特征描述 from kmmxb where id = " & myid

rstOpen Sql, cONn, adopenkeyset, adlockoptimistic

ARR2 = rstGetRows

myfid = ARR2(1, 0)

mysid = ARR2(2, 0)

mylev = ARR2(3, 0)

mytzms = ARR2(4, 0)

MYSIDARR = Split(mysid, "-")

For k = 1 To mylev

jgarr(k, 1) = MYSIDARR(k - 1)

Next k

rstClose

For k = 1 To mylev

Sql = "select 名称 from kmmxb where id = " & jgarr(k, 1)

rstOpen Sql, cONn, adopenkeyset, adlockoptimistic

ARR2 = rstGetRows

jgarr(k, 2) = ARR2(0, 0)

rstClose

Next k

HH2 = kshh + i

'Cells(hh2, 3) = myid

Cells(HH2, 1) = myfid

For k = 1 To mylev

Cells(HH2, 4 + k - 1) = jgarr(k, 2)

Next k

Cells(HH2, 9) = mytzms

Next i

Call gs

End Sub

假设你想在sheet1中输入的数据在sheet2中显示，只需在sheet2要显示的单元格中输入公式即可实现。例如：在sheet1单元格A1中输入“中华人民共和国”，如果你想让这个内容在sheet2单元格B6中显示则在sheet2单元格B6中输入公式“=sheet！A1”回车即可。注意：输入公式要在半角状态下输入

1）打开你的sql server，找到要导入数据的数据库，右键——〉任务——〉导入数据

2）按照图示选择要导入的excel

3）选择导入到哪个数据库

4）导入excel选择第一项即可，选择第二项是表与表直接内容的筛选复制

5）选择源表和源视图

6）编辑映射页面

7

7）继续下一步，点击完成，看到传输数据完成页面

*** 作步骤如下：

准备数据:在excel中构造出需要的数据

2将excel中的数据另存为文本文件(有制表符分隔的)

3将新保存到文本文件中的数据导入到plsql中

在plsql中选择tools-->text importer,在出现的窗口中选择"Data from Textfile",然后再选择"Open data file",

在d出的文件选择框中选中保存有数据的文本文件，此时将会看到data from textfile中显示将要导入的数据

4在configuration中进行如下配置

注:如果不将"Name in header"勾选上会导致字段名也当做记录被导入到数据库中，从而导致数据错误

5点击data to oracle，选择将要导入数据的表，并在fields中将文本中的字段与表中的字段进行关联

6点击import按钮进行导入

7查看导入的数据

以上就是关于如何在excel中创建“数据库”全部的内容，包括:如何在excel中创建“数据库”、如何将Excel表单数据自动导入导出Access数据库、Excel中一个表输入原始数据，在另一个表中自动添加进去，就像数据库一样等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！