如何按相应标题列导入数据内容

yzyyyyyyy

外部文件中的列标题(

班级

编号

姓名

是否参加考试

随机

)在目标文件(

班级

编号

姓名

总分

班排

级排

班级序号

是否参加考试

顺序号

随机

试场号

试场位置

座号

试场密码

)中不相连，如何将相同标题列数据导入到目标文件中相同标题列(

班级

编号

姓名

是否参加考试

随机

)中。弹出对话框选择文件，导入标题列相同的列内容。 如何按标题行导入相应列数据.rar (18.23 KB, 下载次数: 90)

2013-1-14 15:34 上传

点击文件名下载附件

joza

同问！另外，如何实现在一张纸上打印多条数据，并在每条数据前加一行标题。电子表格和word打印都行

yzyyyyyyy

再次求助，有点象数据库文件的导入（含部分字段的数据库导入含有此字段的数据 库文件）

yaozong

高级筛选也可以实现(不知条件??)

yzyyyyyyy

yaozong 发表于 2013-1-15 07:44
高级筛选也可以实现(不知条件??)

清空标题相同列原有内容，添加标题相同列新内容，即目标表中有很多标题列（部分列与导入的文件列标题相同），清空标题相同的列原有内容，导入相应列新内容。

yaozong

Private Sub CommandButton1_Click()
    Dim Wb As Workbook
    Dim Temp As String
    Application.ScreenUpdating = False
    Range("a2:e65536").ClearContents
    Range("a1:e1").Copy [a4]
    Temp = ThisWorkbook.Path & "\如何按标题行导入相应列数据.xls"
    Set Wb = GetObject(Temp)
    Wb.Sheets("样表").[a1].CurrentRegion.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("a1:e2"), CopyToRange:=Range("a4:e4"), Unique:=False
    Wb.Close False
    Set Wb = Nothing
    Rows("2:4").Delete
    Application.ScreenUpdating = True
End Sub

yaozong

参考附件....

lee1892

楼上弄反了吧，源是列连续，目标是不连续的，呵呵~

yaozong

lee1892 发表于 2013-1-15 12:01
楼上弄反了吧，源是列连续，目标是不连续的，呵呵~

方向反过来的话(用循环复制)
Private Sub CommandButton1_Click()
Dim Wb As Workbook
Dim Temp As String
Dim r&, j%
    Application.ScreenUpdating = False
    Temp = ThisWorkbook.Path & "\需导入相应字段的数据文件.xls"
    Set Wb = GetObject(Temp)
    With Wb.Sheets("sheet1")
        r = .[a65536].End(3).Row
        For j = 1 To 5
           Set cel = Range("a1:j1").Find(.Cells(1, j), , , 1)
           If Not cel Is Nothing Then
              .Cells(2, j).Resize(r - 1).Copy Cells(2, cel.Column)
           End If
        Next
    End With
    Wb.Close False
    Set Wb = Nothing
    Application.ScreenUpdating = True
End Sub

yaozong

参考附件...