win10vb6无法选择部件

这个是系统兼容问题，没法子，你只能去找找看看是否有64位的VB6.0，没有就只有把系统换成32位的。进入安装程序文件夹，找到setup文件，点击鼠标右键--属性，如下图所示：

8f85a177040815c615a35550c0505058.png

2、在属性界面选择兼容性--勾选以兼容模式运行此程序，选择xp，点击应用按钮，如下图所示：

47f690fab0a9fdb2dd22fdac21fb689a.png

3、继续鼠标右键单击setup，选择以管理员身份运行程序，如下图所示：

f06f051c4605231a87b1acb8760315bc.png

4、启动安装，点击下一步，如下图所示：

fdf57f293b696f5b63be54059c8ee164.png

5、选择接受协议，点击下一步，如下图所示：

a8d4f0f2b630179e00474ca638e9909a.png

6、输入你的序列号，序列号一般在程序文件夹中的sn这个文本文件有记录，点击下一步，如下图所示：

ebaf646df6043cf00205e04ef2e2d142.png

7、选择安装vb6.0，点击下一步，如下图所示：

098083773790274120826863ef818110.png

8、出现以下几个画面，点击继续，然后点击确定如下图所示：

5d4cbe3474f7acfbbb390bfc57c51f93.png

81c9fd63555bbaf7021c26ba08ec20b1.png

9、到这个界面，等候时间稍长，大概40-45秒，不用着急，如下图所示：

20e68723e773fe505e78c56fc7cc2357.png

10、进入安装条件界面，选择安装路径，点击典型安装，如下图所示：

50f34d3003b5e99e68c4688c1ea0d8d7.png

11、等待进度条走到100%，此过程大概40秒左右，如下图所示：

60b1cb09d0c65a36188e31949d1ad1b9.png

12、到这个界面会卡住，其实程序已经安装完成了。

dd688102329c0a29e8ecd4b19271ecd2.png

13、按下ctrl+alt+del选择任务管理器，结束安装任务，如下图所示：

bdac76186fcba23dc19c7ad201f799d9.png

a49520a9f27f1fd2ce6f07411f8442e5.png

14、打开开始菜单选择应用程序，可以看到新添加的应用程序已经有了vb6.0，如下图所示：

23f5dcc7b3811c595fedf33e5d9495f4.png

15、点击运行一下，一切正常，安装完美运行，如下图所示：

11c7366f57a385c8b10365360f0631bf.png

通过上述步骤 *** 作，我们就能在windows10系统中成功安装vb6.0了。不懂得在win10 *** 作系统中怎么安装vb6.0的用户，可以手动 *** 作看看！

系统兼容问题导致。vb6win10是一款由微软开发的包含协助开发环境的事件驱动编程语言，无法全选控件的原因是系统兼容问题导致，是无法进行修复的。编程语言可以简单的理解为一种计算机和人都能识别的语言。

通过添加查询语句的方法，即用Excel中的获取外部数据的功能将数据很快地从一个查询语句中捕获到EXCEL中，比起往每个CELL里写数据的方法提高许多倍。在程序中引用Microsoft Excel 9.0 Object Library，将下文加入到一个模块中,窗体中调用如下ExporToExcel("select * from table")。则实现快速将数据导出到EXCEL中。 Public Function ExporToExcel(strOpen As String)

'*********************************************************

'* 名称：ExporToExcel

'* 功能：导出数据到EXCEL

'* 用法：ExporToExcel(sql查询字符串)

'*********************************************************

Dim Rs_Data As New ADODB.Recordset

Dim Irowcount As Integer

Dim Icolcount As Integer

Dim xlApp As New Excel.Application

Dim xlBook As Excel.Workbook

Dim xlSheet As Excel.Worksheet

Dim xlQuery As Excel.QueryTable

With Rs_Data

If .State = adStateOpen Then

.Close

End If

.ActiveConnection = Cn

.CursorLocation = adUseClient

.CursorType = adOpenStatic

.LockType = adLockReadOnly

.Source = strOpen

.Open

End With

With Rs_Data

If .RecordCount <1 Then

MsgBox ("没有记录!")

Exit Function

End If

'记录总数

Irowcount = .RecordCount

'字段总数

Icolcount = .Fields.Count

End With

Set xlApp = CreateObject("Excel.Application")

Set xlBook = Nothing

Set xlSheet = Nothing

Set xlBook = xlApp.Workbooks().Add

Set xlSheet = xlBook.Worksheets("sheet1")

xlApp.Visible = True

'添加查询语句，导入EXCEL数据

Set xlQuery = xlSheet.QueryTables.Add(Rs_Data, xlSheet.Range("a1"))

With xlQuery

.FieldNames = True

.RowNumbers = False

.FillAdjacentFormulas = False

.PreserveFormatting = True

.RefreshOnFileOpen = False

.BackgroundQuery = True

.RefreshStyle = xlInsertDeleteCells

.SavePassword = True

.SaveData = True

.AdjustColumnWidth = True

.RefreshPeriod = 0

.PreserveColumnInfo = True

End With

xlQuery.FieldNames = True '显示字段名

xlQuery.Refresh

With xlSheet

.Range(.Cells(1, 1), .Cells(1, Icolcount)).Font.Name = "黑体"

'设标题为黑体字

.Range(.Cells(1, 1), .Cells(1, Icolcount)).Font.Bold = True

'标题字体加粗

.Range(.Cells(1, 1), .Cells(Irowcount + 1, Icolcount)).Borders.LineStyle = xlContinuous

'设表格边框样式

End With

With xlSheet.PageSetup

.LeftHeader = "" &Chr(10) &"&""楷体_GB2312,常规""&10公司名称：" ' &Gsmc

.CenterHeader = "&""楷体_GB2312,常规""公司人员情况表&""宋体,常规""" &Chr(10) &"&""楷体_GB2312,常规""&10日 期："

.RightHeader = "" &Chr(10) &"&""楷体_GB2312,常规""&10单位："

.LeftFooter = "&""楷体_GB2312,常规""&10制表人："

.CenterFooter = "&""楷体_GB2312,常规""&10制表日期："

.RightFooter = "&""楷体_GB2312,常规""&10第&P页 共&N页"

End With

xlApp.Application.Visible = True

Set xlApp = Nothing '"交还控制给Excel

Set xlBook = Nothing

Set xlSheet = Nothing

End Function

希望我的回答对你有所帮助！

---