Excel如何使用VB引用工作表中的内容，该内容修改后保存至另一个工作表中？
- 如何用vb编程 把数据从一个工作表导入到另一个工作表
- 如何在VB中创建excel，并将其编辑后保存
- VB: 把数据导入到Excel中，然后在Excel中修改之后，如何再保存到数据库中呢？
- 请教如何利用VBA实现将一个工作表复制到另一个工作簿中
如何用vb编程 把数据从一个工作表导入到另一个工作表
在工作表中可以直接用vlookup完成，如果非得vba，vba中也可以调用工作表函数。
Sub test()
With Sheets("sheet2")
For c = 5 To 100
Cells(14, c) = Application.WorksheetFunction.VLookup(Cells(10, c), Sheets("sheet1").Range("a:b"), 2, 0)
Next
End With
End Sub
如何在VB中创建excel，并将其编辑后保存
在VB中启动一个新的StandardEXE工程，在“工程”菜单的“引用”选项下引用ExcelObjectLibrary然后在Form中添加一个命令按钮cmdExcel最后在窗体中输入如下代码：
DimzsbexcelAsExcel.Application
PrivateSubcmdExcel_Click()
Setzsbexcel=NewExcel.Application
zsbexcel.Visible=True
zsbexcel.SheetsInNewWorkbook=1
Setzsbworkbook=zsbexcel.Workbooks.Add
Withzsbexcel.ActiveSheet.Range("A2:C9").Borders'边框设置
.LineStyle=xlBorderLineStyleContinuous
.Weight=xlThin
.ColorIndex=1
EndWith
Withzsbexcel.ActiveSheet.Range("A3:C9").Font'字体设置
.Size=14
.Bold=True
.Italic=True
.ColorIndex=3
EndWith
zsbexcel.ActiveSheet.Rows.HorizontalAlignment=
xlVAlignCenter'水平居中
zsbexcel.ActiveSheet.Rows.VerticalAlignment=
xlVAlignCenter'垂直居中
Withzsbexcel.ActiveSheet
.Cells(1,2).Value="100"
.Cells(2,2).Value="200"
.Cells(3,2).Value="=SUM(B1:B2)"
.Cells(1,3).Value="中国人民解放军"
.Range("A3:A9")="50"
EndWith
zsbexcel.ActiveSheet.PageSetup.Orientation=xlPortrait'
xlLandscape
zsbexcel.ActiveSheet.PageSetup.PaperSize=xlPaperA4
zsbexcel.ActiveSheet.PrintOut
zsbexcel.DisplayAlerts=False
zsbexcel.Quit
zsbexcel.DisplayAlerts=True
Setzsbexcel=Nothing
VB: 把数据导入到Excel中，然后在Excel中修改之后，如何再保存到数据库中呢？
1、SQL可以直接导出为EXCEL:
insert into OPENROWSET('MICROSOFT.JET.OLEDB.4.0'
,'Excel 5.0;HDR=YES;DATABASE=你的工作簿路径及名称',工作表名或命名区域)
select * from 表
2、EXCEL可以直接导入SQL:
(1)生成新表：
SELECT * INTO 表 FROM
OPENROWSET('MICROSOFT.JET.OLEDB.4.0'
,'Excel 5.0;HDR=YES;DATABASE=你的工作簿路径及名称',工作表名或命名区域)
(2)导入原有表中：
INSERT INTO 表 SELECT * FROM
OPENROWSET('MICROSOFT.JET.OLEDB.4.0'
,'Excel 5.0;HDR=YES;DATABASE=你的工作簿路径及名称',工作表名或命名区域)
3、MSFlexGrid仅仅是个数据显示控件，何必拘泥与此呢
请教如何利用VBA实现将一个工作表复制到另一个工作簿中
1、首先在桌面创建两个Excel文件，一个企划和一个市场，如图所示。 2、同时打开这两个Excel，这里注意了两个Excel必须同时处于打开状态，如图所示。 3、在市场部Excel中的【市场部1月】表单名称上点击右键，在出现的对话框中点击【移动或复制】，弹出【移动或复制工作表】对话框，如图所示。 4、在【移动或复制工作表】对话框中，工作簿选【企划】，位置选【移动到最后】，【建立副本】前面打勾，然后点击【确定】按钮，如图所示。 5、最后打开企划Excel文档，可以看到市场Excel文档的表单【市场部1月】已经被复制过来，如图所示。