将excel数据对应写入已做好的wps文档指定位置

将Excel数据对应写入已做好的WPS文档指定位置可以通过编写宏或使用Python等编程语言来实现。

一种实现方法是使用VBA编写宏。首先，在Excel中打开宏编辑器，在代码窗口中编写以下代码：

Sub WriteToWPS()
    Dim wpsApp As Object
    Dim wpsDoc As Object
    Dim wpsRange As Object
    Dim excelSheet As Worksheet
    Dim excelRange As Range
    Dim i As Integer
    
    '连接WPS应用程序
    Set wpsApp = CreateObject("kwps.application")
    '打开WPS文档
    Set wpsDoc = wpsApp.Documents.Open("C:\Path\To\Your\WPS\Document.docx")
    
    '在WPS文档中指定位置写入Excel数据
    '假设Excel数据在Sheet1的A1:A5范围内，需要写入到WPS文档的第2行到第6行中
    Set excelSheet = ThisWorkbook.Sheets("Sheet1")
    Set excelRange = excelSheet.Range("A1:A5")
    Set wpsRange = wpsDoc.Range(2, 1, 6, 1)
    
    i = 1
    For Each cell In excelRange
        wpsRange.Cells(i, 1).Range.Text = cell.Value
        i = i + 1
    Next cell
    
    '保存并关闭WPS文档
    wpsDoc.Save
    wpsDoc.Close
    
    '释放对象引用
    Set wpsRange = Nothing
    Set wpsDoc = Nothing
    wpsApp.Quit
    Set wpsApp = Nothing
End Sub

然后，运行这个宏，Excel数据将会写入已做好的WPS文档的指定位置。

另一种方法是使用Python编程语言。首先，安装Python库`pywpsrpc`来连接WPS应用程序。然后，编写以下Python代码：

import win32com.client

# 连接WPS应用程序
wpsApp = win32com.client.Dispatch("kwps.Application")
# 打开WPS文档
wpsDoc = wpsApp.Documents.Open(r"C:\Path\To\Your\WPS\Document.docx")

# 在WPS文档中指定位置写入Excel数据
# 假设Excel数据在Sheet1的A1:A5范围内，需要写入到WPS文档的第2行到第6行中
excelApp = win32com.client.Dispatch("Excel.Application")
excelWorkbook = excelApp.Workbooks.Open(r"C:\Path\To\Your\Excel\File.xlsx")
excelSheet = excelWorkbook.Sheets("Sheet1")
excelRange = excelSheet.Range("A1:A5")
wpsRange = wpsDoc.Range(2, 1, 6, 1)

i = 1
for cell in excelRange:
    wpsRange.Cells(i, 1).Range.Text = cell.Value
    i += 1

# 保存并关闭WPS文档
wpsDoc.Save()
wpsDoc.Close()

# 释放对象引用
wpsRange = None
wpsDoc = None
wpsApp.Quit()
wpsApp = None
excelRange = None
excelSheet = None
excelWorkbook.Close()
excelWorkbook = None
excelApp.Quit()
excelApp = None

运行这段Python代码，Excel数据将会写入已做好的WPS文档的指定位置。

以上是两种将Excel数据对应写入已做好的WPS文档指定位置的方法，你可以根据自己的需求选择适合你的方法来实现。