excel数据按列标题导入方法求助用vba代码实现

adud

怎么实现点击上面的导入数据按钮，可以打开要导入数据的文件，并能选择要导入的任意列，并导入到对应的列中。比如：我点击上面的“导入数据”，弹出文件选择窗口，我选择了文件夹里面的“原始数据”,里面有好多数据，我想选择某一列或者多列，例如只选择姓名，就只导入姓名的数据到姓名这一列，我也可以选择“姓名”“班级”“考号”等，分别导入对应数据到对应的列中。
本人常用一些公式解决，后来发现vba真的好强大，最近在学习使用vba，遇到问题，解决不了，求助各位。

点击导入数据按钮后，弹出用户选择窗口，选择Excel文件后，跳到userform1，在左侧框中显示原数据表中的对应列，在右侧显示需要导入的数据咧。

Yalishanda30

附件供参考
导入单列，多列你自己练个手

adud

效果真不错，谢谢啦。以我的水平，恐怕解决不了这个问题。不过我通过这个可以学到不少东西的。

chxw68

1. Public sjk As Variant
   
2. Sub test()
   
3.   Dim r%, i%
   
4.   Dim brr
   
5.   Dim wb As Workbook
   
6.   Dim ws As Worksheet
   
7.   Dim mypath$, myname$
   
8.   ChDrive Split(ThisWorkbook.Path, "")(0)
   
9.   ChDir ThisWorkbook.Path
   
10.   myfile = Application.GetOpenFilename(fileFilter:="Excel文件(*.xls*),*.xls*", Title:="选择Excel文件")
    
11.   If myfile = False Then
    
12.     MsgBox "没有选择文件", vbCritical, "错误"
    
13.     Exit Sub
    
14.   End If
    
15.   Set wb = GetObject(myfile)
    
16.   With wb
    
17.     With .Worksheets("sheet1")
    
18.       r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
19.       c = .Cells(1, .Columns.Count).End(xlToLeft).Column
    
20.       sjk = .Range("a1").Resize(r, c)
    
21.     End With
    
22.     .Close False
    
23.   End With
    
24.   frm_dr.Show
    
25. End Sub
    
26. Sub daoru(ByVal d_zd As Object)
    
27.   Dim r%, i%
    
28.   Dim brr
    
29.   With Worksheets("理科")
    
30.     .UsedRange.Offset(1, 0).ClearContents
    
31.     c = .Cells(1, .Columns.Count).End(xlToLeft).Column
    
32.     arr = .Range("a1").Resize(1 + UBound(sjk), c)
    
33.     For j = 1 To UBound(arr, 2)
    
34.       If d_zd.exists(arr(1, j)) Then
    
35.         n = d_zd(arr(1, j))
    
36.         For i = 1 To UBound(sjk)
    
37.           arr(i + 1, j) = sjk(i, n)
    
38.         Next
    
39.       End If
    
40.     Next
    
41.     .Range("a1").Resize(UBound(arr), UBound(arr, 2)) = arr
    
42.   End With
    
43. End Sub
    
44. 
    

复制代码

chxw68

涉及到窗体的代码都比较繁琐。

adud

chxw68 发表于 2020-1-1 11:23
涉及到窗体的代码都比较繁琐。

您真棒，虽然和我的那个窗体有差距，其实比我那个还好用，谢谢啊

adud

本来可以实现基本的导入功能，基本操作是
第一步 、点按钮     


第二步、  选文件


第三步、选工作表


第四步、选数据列
基本可以实现导入所需数据的基本功能。

但功能有以下缺陷：
1、        不能直观显示待导入数据中有几个工作表，更不知道分别是什么数据，选择不够方便
2、        输入序号只能输入一个，不能进行多选，也就是不能同时导入多个数据表的内容。

在网上搜到了一段代码，可以直接显示工作薄中各个工作表的名称，我就想若是能将这个功能加上就完美了。










存在以下困难，自己没法解决，求助各位大师帮忙解决：
1、        右边窗口只能显示当前工作薄的表，没法显示
待导入文件的表。
   2、怎么通过选择表名，将待导入数据导入到当前的数据表中。（可以只选择一个也可以选择多个）