Excel 如何水平增加单元格值？在VBA宏中
我正在用powerpoint编写VBA程序 程序流程：VBA powerpoint宏必须打开excel文件，将单元格内容复制并替换到特定幻灯片中的特定形状。Excel 如何水平增加单元格值？在VBA宏中,excel,vba,powerpoint,Excel,Vba,Powerpoint,我正在用powerpoint编写VBA程序 程序流程：VBA powerpoint宏必须打开excel文件，将单元格内容复制并替换到特定幻灯片中的特定形状。 这里excel文件有21列。我必须将单元格数据复制并替换到幻灯片#8中的幻灯片形状。如何在水平方向上增加单元格值？像a1到b1一样直到21个单元格，并从一开始就重复相同的操作 这是密码 Sub-xltoppt（） 将xlApp作为对象 将工作簿设置为对象 设置xlApp=CreateObject（“Excel.Application”） x
这里excel文件有21列。我必须将单元格数据复制并替换到幻灯片#8中的幻灯片形状。如何在水平方向上增加单元格值？像a1到b1一样直到21个单元格，并从一开始就重复相同的操作 这是密码
Sub-xltoppt（）
将xlApp作为对象
将工作簿设置为对象
设置xlApp=CreateObject（“Excel.Application”）
xlApp.Visible=True
设置xlWorkBook=xlApp.Workbooks.Open（“C:\Users\\Desktop\test.xls”，True，False）
设置xlApp=Nothing
设置xl工作簿=无
将SheetName设置为字符串
将测试范围变暗为范围
将测试表调整为工作表
将范围设置为布尔值
将类型设置为字符串
将RangeName设置为字符串
Dim AddSlidesToEnd为布尔值
将shts变暗为工作表
将sld变暗为幻灯片
形状暗淡
将shp变暗为形状
我想我会坚持多久
Dim j尽可能长
SheetName=ActiveSheet.Name
'将PasteRange设置为True意味着将不使用图表选项
PasterRange=True
RangeName=（“B1:B1”）“MyRange”
RangePasteType=“HTML”
RangeLink=True
粘贴图表=错误
PasteChartLink=True
ChartNumber=1
AddSlidesToEnd=True
“错误测试
出错时继续下一步
设置测试表=工作表（工作表名称）
设置TestRange=Sheets（SheetName）.Range（RangeName）
设置TestChart=Sheets（SheetName）.ChartObjects（ChartNumber）
错误转到0
“如果测试表什么都不是，那么
“MsgBox”Sheet“&SheetName&”不存在。宏将退出”，vbCritical
出口接头
"完"
'如果PasteRange和TestRange为空，则
MsgBox“Range”和RangeName&“不存在。宏将退出”，vbCritical
出口接头
"完"
'查找现有实例
'出现错误时，请继续下一步
'Set ppApp=GetObject（，“PowerPoint.Application”）
'在出现错误时转到0
'如果不存在实例，则创建新实例
''如果ppApp为空，则设置ppApp=New PowerPoint.Application
'如果不存在演示文稿，请添加演示文稿
'如果ppApp.Presentations.Count=0，则ppApp.Presentations.Add
'使实例可见
ppApp.Visible=True
'如果没有添加1张幻灯片，请检查幻灯片是否退出。否则，请使用最后一张幻灯片进行粘贴操作
对于ActivePresentation.Slides中的每个sld
对于sld形状中的每个shp
如果是shp.HasTextFrame，则
如果是shp.TextFrame.HasText，则
shp.TextFrame.TextRange.Text=替换（shp.TextFrame.TextRange.Text，“快乐”，工作表（SheetName）.范围（RangeName））
如果结束
如果结束
下一个小水电
下一个
端接头```
End IfIf