VB6.0如何插入数据表格

1，打开access，点击工具栏的外部数据，点击excel。

2，点击浏览，选择要导入的excel表格，选好后点击确定，在获取外部数据中点击确定。

3，点击确定后会d出导入数据包向导框，运丛点春悄早击下一步，然后到另一个步骤。

4，点击下一步后，再点击下一步，然后在扒雀框里输入要导入的数据表的名称，最后点击完成就可以了。

excel电子表格中如何用vb 语句插入行或单元格

Selection.Insert Shift:=xlDown 插入行，

Selection.Insert Shift:=xlToRight 插入单元格，向右移

Selection.Insert Shift:=xlDown 插入单元格，向下移

另外告诉你个简单的方法，就是先开启录制新巨集，然后进行，你要的 *** 作，然后开启巨集检视一下原始程式码就知道命令了。

如何在电子表格中插入行或列

比如说你想在第5行的上面插入一行，步骤如下:

1. 在最左边的数字5上点一下，选定第5行，

2. 点选滑鼠右键，出现一列选项，

3. 选择’插入（I），

完成后就会新生成一个第5行，原先第5行的内容就会向下移到第6行。

插入列同理。比如说你想在C列的前面插入一列，步骤如下:

1. 在最上面的字母C上点一下，选定C列，

2. 点选滑鼠右键，出现一列选项，

3. 选择’插入（I），

完成后就会新生成一个C列，原先C列的内容就会右移到D列。

电子表格VBA中，如何用VBA给单元格插入公式？

1楼的方法有可取之处

不过不直接

如果你的公式是固定的.那么就用1楼的第1个: range("B14").Formula="=SUM(B1:F3)"

如果想用相对的,就是这样了,

range("B14").FormulaR1C1="sum(R1C:R3C[4])"

说明:

RC分表代表行列,后面的数字代表了相应的行列号,如果没加" [ ]" ,就是绝对引用,如果加了"[ ]"就是相对引用了. 方向由正负号控制

再举个例子:

比如: 当前单元格值总是等于它左边三个单元格的和.那么公式为:

activecell.FormulaR1C1="=sum(RC[-3]:RC[-1])"

简述如何在电子表格中插入行或列

1、选择列或者行的序号点选滑鼠右键选择插入

2、选择单元格点选滑鼠右键选择行或者列确定

3、选择单元格或列的序号或行的序号，在选单栏中选择插入行或者列。

在电子表格中如何批量间隔插入行?

电子表格批量插入行：

alt+ F11

插入模组

将下列程式码贴上进去

把50改成你实际需要插入的资料的行数

Sub 巨集1()

For i = 1 To 50

Selection.EntireRow.Insert

ActiveCell.Offset(2, 0).Range("A1").Select

Next i

End Sub

然后滑鼠选定第一行资料任意单元格，选择选单 工具-巨集-执行巨集，选择刚才的巨集1，执行

看你的问题补充，感觉你像是要做工资条，假设第一行是表头，即为你要复制的内容，那么程式码如下，注意需要选择第三行第一单元格（A3），执行巨集，否则可能出错

Sub 巨集1()

For i = 1 To 50

Selection.EntireRow.Insert

Rows("1:1").Copy'复制第一行资料，所以执行巨集的时候必须选择的是某行的开始单元格否则会粘贴出错

ActiveSheet.Paste

ActiveCell.Offset(2, 0).Range("A1").Select

Next i

End Sub

电子表格如何用红圈圈单元格？

在工作列 插入 图形 选择圈的 可以调整位置及大小 双击调整线条颜色

满意请采纳

电子表格中如何在单元格中绘制斜线并插入文字

需要占上下两个单元格：用绘型猜图工具里的直线顷团，从上单元格左上角起至下单元格的右下角止，一个斜线不就出来了吗，输入文字的时候一个左对齐一个右对齐，样看上去就协调了,然雀租橘后再按需要给单元格加边框。（大小也可任意调整）

如何用VB向EXCEL单元格中插入图片

如果你知道图片的Name 可以,如名称是"Picture 1" xlSheet.Shapes("Picture 1").delete 如果不知道名称,知道在单元格的位置,譬如顶点位置在$B$3 可以回圈判断后删除 For Each P In xlSheet.Shapes If P.Name Like "Picture*" and P.TopLeftCell.

在Excel电子表格中怎样插入分页符？

插入-分页符

如何在电子表格中进行拆分单元格?

Excel表之所以不能拆分单元格，原因其实很简单，这就是这样一来，拆分者的本意是要把一个格子分成一几行或几列，但Excel表却无法对之进行定位了（即单元格到底是A1呢，还是C2呢），如果强行定位，则又不得不重新把所有的单元格进行移动和处理。这等于说：并没有进行拆分，而是重新排列了。

因而，电子表格的最基本单元是“单元格”，是不能拆分的，正因如此，才叫做“单元”格！

你把该单元格周围的单元格合并不就相当于拆分该单元格了吗，Excel只能这样处理

将Excel数据嵌入到VB中，使他在VB的MDI窗体中，看起来就像VB的一部分，同时我也可以用代码对其进行读写

我用OLE把它嵌入到里面，不过每次双击以后，出来的Excel大小我无法控制

（我不想用对象的方式来斗枝 *** 作Excel，因为我要把编辑表格的界碧闹面提供给用户）

bas中：

Public XL As Excel.Application, xlHwnd As Long

Public

Declare Sub Sleep Lib "kernel32 " (ByVal dwMilliseconds As Long)

Public

Const WS_CAPTION As Long = &HC00000

Public Const SW_SHOW As Long = 5

Public Const WS_EX_APPWINDOW = &H40000

Public Const SW_SHOWMAXIMIZED

= 3

Public Const GWL_STYLE As Long = -16

Public Const GW_HWNDNEXT =

2

Public Declare Function GetWindowThreadProcessId Lib "user32 " (ByVal

hwnd As Long, lpdwProcessId As Long) As Long

Public Declare Function

GetParent Lib "user32 " (ByVal hwnd As Long) As Long

Public Declare Function

FindWindow Lib "user32 " Alias "FindWindowA " (ByVal lpClassName As String,

ByVal lpWindowName As String) As Long

Public Declare Function GetWindow Lib

"user32 " (ByVal hwnd As Long, ByVal wCmd As Long) As Long

Public Declare

Function GetWindowText Lib "user32 " Alias "GetWindowTextA " (ByVal hwnd As

Long, ByVal lpString As String, ByVal cch As Long) As Long

Public Declare

Function SetParent Lib "user32 " (ByVal hWndChild As Long, ByVal hWndNewParent

As Long) As Long

Public Declare Function SetWindowLong Lib "user32 "空慧敏

Alias "SetWindowLongA " (ByVal hwnd As Long, ByVal nIndex As Long, ByVal

dwNewLong As Long) As Long

Public Declare Function GetWindowLong Lib "user32

" Alias "GetWindowLongA " (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Public Declare Function ShowWindow Lib "user32 " (ByVal hwnd As Long, ByVal

nCmdShow As Long) As Long

Public Declare Function DrawMenuBar Lib "user32 "

(ByVal hwnd As Long) As Long

Public Const WS_SYSMENU = &H80000

Public Sub RemoveSysButton(ByVal hHwnd As Long)

Dim lWnd As Long

lWnd = GetWindowLong(hHwnd, GWL_STYLE)

lWnd = lWnd And Not (WS_SYSMENU)

lWnd = SetWindowLong(hHwnd, GWL_STYLE, lWnd)

DrawMenuBar hHwnd

End

Sub

Function InstanceToWnd(ByVal target_pid As Long) As Long

Dim

test_hwnd As Long

Dim test_pid As Long

Dim test_thread_id As Long

test_hwnd = FindWindow(ByVal 0&, ByVal 0&)

Do While

test_hwnd <>0

If GetParent(test_hwnd) = 0 Then

test_thread_id =

GetWindowThreadProcessId(test_hwnd, test_pid)

If test_pid = target_pid Then

InstanceToWnd = test_hwnd

Exit Do

End If

End If

test_hwnd =

GetWindow(test_hwnd, GW_HWNDNEXT)

Loop

End Function

Public Sub

SetFormStyle(hwnd)

Dim IStyle As Long

IStyle = GetWindowLong(hwnd,

GWL_STYLE)

IStyle = IStyle And Not WS_CAPTION And Not WS_EX_APPWINDOW

SetWindowLong hwnd, GWL_STYLE, IStyle

ShowWindow hwnd, SW_SHOW

DrawMenuBar hwnd

End Sub

form中：

Set XL = CreateObject(

"excel.application ")

xlHwnd = FindWindow( "XLMAIN ", XL.Caption)

oldHwnd = GetParent(xlHwnd)

Call SetFormStyle(xlHwnd)

l =

SetParent(xlHwnd, Me.hwnd)

XL.Workbooks.Open FileName:= "要打开的文档 "

RemoveSysButton xlHwnd

XL.WindowState = xlNormal

XL.Height =

Me.Height / 20

XL.Width = Me.Width / 20

XL.Top = 0

XL.Left = 0

大体就是这样的，在此基础上再完善一下就达到要求了。

---