vb中在excel中调用 PasteSpecial方法进行粘贴的问题~ vb6中在excel中调用 选择性粘贴的问题

VB\u4e2d\u540e\u671f\u7ed1\u5b9aExcel,\u6709pastespecial\u5c5e\u6027\u5417?

\u6ca1\u6709pastespecial\u5c5e\u6027\uff0c\u4f46\u6709pastespecial\u65b9\u6cd5\u3002
\u5bf9\u4e8e Range \u5bf9\u8c61\uff0c\u5c06\u526a\u8d34\u677f\u4e2d\u7684 Range \u5bf9\u8c61\u7c98\u8d34\u5230\u6307\u5b9a\u533a\u57df\u4e2d\u3002
\u5bf9\u4e8eWorksheet\u5bf9\u8c61\uff0c\u4ee5\u6307\u5b9a\u683c\u5f0f\u5c06\u526a\u8d34\u677f\u4e2d\u7684\u5185\u5bb9\u7c98\u8d34\u5230\u5de5\u4f5c\u8868\u4e0a\u3002\u53ef\u7528\u672c\u65b9\u6cd5\u4ece\u5176\u4ed6\u5e94\u7528\u7a0b\u5e8f\u4e2d\u7c98\u8d34\u6570\u636e\uff0c\u6216\u4ee5\u7279\u5b9a\u683c\u5f0f\u7c98\u8d34\u6570\u636e\u3002

\u5982\u679c\u6211\u4eec\u9700\u8981\u590d\u5236\u81ea\u5b9a\u4e49\u683c\u5f0f\u6240\u663e\u793a\u7684\u5185\u5bb9\uff0c\u800c\u4e0d\u662f\u6570\u636e\u672c\u8eab\uff0c\u53ef\u4ee5\u5229\u7528\u4e0b\u9762\u4e09\u79cd\u65b9\u6cd5\uff1a

1\u3001\u76f4\u63a5\u63d2\u5165\u5230\u5355\u5143\u683c\u4e2d\u3002\u9996\u5148\u9009\u62e9\u9700\u8981\u590d\u5236\u7684\u6570\u636e\u533a\u57df\uff0c\u7136\u540e\u8fde\u7eed\u6309\u4e24\u6b21Ctrl+C\u590d\u5236\u5e76\u8c03\u51fa\u526a\u8d34\u677f\uff0c\u7136\u540e\u53cc\u51fb\u76ee\u6807\u5355\u5143\u683c\u6216\u6309F2\u8fdb\u5165\u5355\u5143\u683c\u7f16\u8f91\u72b6\u6001\uff0c\u518d\u70b9\u51fb\u526a\u8d34\u677f\u4e2d\u9700\u8981\u7c98\u8d34\u7684\u5bf9\u8c61\uff0c\u5c31\u53ef\u4ee5\u7c98\u8d34\u5230\u5355\u5143\u683c\u4e2d\u3002

\u6b64\u65b9\u6cd5\u7684\u4f18\u7f3a\u70b9\u5c31\u662f\uff1a\u5982\u679c\u662f\u591a\u884c\u591a\u5217\u7684\u6570\u636e\uff0c\u90fd\u5408\u5e76\u5728\u540c\u4e00\u4e2a\u5355\u5143\u683c\u4e2d\u3002

2\u3001\u5229\u7528\u8bb0\u4e8b\u672c\u3002\u9996\u5148\u590d\u5236\u6570\u636e\u533a\u57df\u7684\u5185\u5bb9\uff0c\u518d\u7c98\u8d34\u5230\u8bb0\u4e8b\u672c\u4e2d\uff08\u6587\u672c\u6587\u4ef6\u4e2d\uff09\uff0c\u7136\u540e\u518d\u590d\u5236\u8bb0\u4e8b\u672c\u4e2d\u521a\u624d\u7c98\u8d34\u7684\u5185\u5bb9\uff0c\u518d\u7c98\u8d34\u7684Excel\u7684\u76ee\u6807\u533a\u57df\u4e2d\u3002\u9700\u8981\u6ce8\u610f\u7684\u662f\uff0c\u5982\u679c\u663e\u793a\u7684\u503c\u53ef\u4ee5\u81ea\u52a8\u8f6c\u5316\u4e3a\u6570\u636e\u7684\u8bdd\uff0c\u76ee\u6807\u533a\u57df\u7684\u5355\u5143\u683c\u683c\u5f0f\uff0c\u9700\u8981\u5728\u7c98\u8d34\u4e4b\u524d\u8bbe\u5b9a\u4e3a\u6587\u672c\uff01

\u6b64\u65b9\u6cd5\u7684\u7f3a\u70b9\u5c31\u662f\uff1a\u8981\u501f\u7528\u5176\u5b83\u5de5\u5177\u8f6f\u4ef6\u3002

3\u3001\u9009\u62e9\u6027\u7c98\u8d34\u3002\u9996\u5148\u9009\u62e9\u9700\u8981\u590d\u5236\u7684\u6570\u636e\u533a\u57df\uff0c\u7136\u540e\u8fde\u7eed\u6309\u4e24\u6b21Ctrl+C\u590d\u5236\u5e76\u8c03\u51fa\u526a\u8d34\u677f\uff0c\u7136\u540e\u9009\u62e9\u76ee\u6807\u533a\u57df\uff0c\u518d\u70b9\u51fb\u526a\u8d34\u677f\u4e2d\u9700\u8981\u7c98\u8d34\u7684\u5bf9\u8c61\u7c98\u8d34\uff08\u91cd\u8981\uff09\uff0c\u6700\u540e\u518d\u7528\u9009\u62e9\u7c98\u8d34\u2014\u2014\u6587\u672c\uff0c\u5c31\u53ef\u4ee5\u628a\u6211\u4eec\u9700\u8981\u7684\u6570\u636e\u8d34\u7c98\u5230\u76ee\u6807\u533a\u57df\u4e2d\u3002\u540c\u6837\uff0c\u5982\u679c\u663e\u793a\u7684\u503c\u53ef\u4ee5\u81ea\u52a8\u8f6c\u5316\u4e3a\u6570\u636e\u7684\u8bdd\uff0c\u9700\u8981\u5728\u6700\u540e\u4e00\u6b21\u7684\u9009\u62e9\u7c98\u8d34\u4e4b\u524d\uff0c\u5c06\u76ee\u6807\u533a\u57df\u7684\u5355\u5143\u683c\u683c\u5f0f\u8bbe\u5b9a\u4e3a\u6587\u672c\uff01

\u4e0b\u9762\u4ecb\u7ecd\u201c\u5229\u7528\u526a\u8d34\u677f\u590d\u5236\u81ea\u5b9a\u4e49\u683c\u5f0f\u6240\u663e\u793a\u5185\u5bb9\u201d\u7684\u65b9\u6cd5\u3002

\u65b9\u6cd51\uff1a\u590d\u5236\u5355\u5143\u683c\u540e\uff0c\u9009\u62e9\u76ee\u6807\u5355\u5143\u683c\uff0c\u7528\u9f20\u6807\u70b9\u51fb\u7f16\u8f91\u680f\uff08\u6216\u53cc\u51fb\u76ee\u6807\u5355\u5143\u683c\uff09\uff0c\u7136\u540e\u70b9\u51fb\u526a\u8d34\u677f\u4e2d\u8981\u7c98\u8d34\u7684\u5bf9\u8c61\u3002

\u65b9\u6cd52\uff1a\u590d\u5236\u5355\u5143\u683c\u540e\uff0c\u9009\u62e9\u76ee\u6807\u5355\u5143\u683c\uff0c\u70b9\u51fb\u526a\u8d34\u677f\u4e2d\u8981\u7c98\u8d34\u7684\u5bf9\u8c61\uff0c\u5c06\u590d\u5236\u7684\u5bf9\u8c61\u7c98\u8d34\u5230\u76ee\u6807\u5355\u5143\u683c\u540e\uff0c\u5728\u76ee\u6807\u5355\u5143\u683c\u70b9\u9f20\u6807\u53f3\u952e\u201c\u9009\u62e9\u6027\u7c98\u8d34\u201d\uff0c\u5728\u5f39\u51fa\u7684\u201c\u9009\u62e9\u6027\u7c98\u8d34\u201d\u5bf9\u8bdd\u6846\u4e2d\u9009\u62e9\u7c98\u8d34\u65b9\u5f0f\u201c\u6587\u672c\u201d\u3002

要实现转置，最后一个参数必须为TRUE 你的这两行代码，没什么问题，报错确实挺奇怪 你把完整的代码贴出来看看…… ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 我有2个问题： ①：你的代码在哪儿运行的？ ②：运行时，没有其它错误？ ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ Set xlsheet = xlApp.Sheets(1)可能是主要问题的所在。 你参照一下下面的代码，修改了3处。 ①：先新建一个.xls文件，在第一个表的A1:E7添加数据 ②：进入VBE，将下面的代码复制，运行 ＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ Dim xlApp As Excel.Application Dim xlsheet As Excel.Worksheet Dim NewxlApp As Excel.Application Dim NewxlBook As Excel.Workbook Dim NewxlSheet As Excel.Worksheet Private Sub Command1_Click() Set xlApp = Excel.Application '去掉new Call Crxls Set xlsheet = xlApp.Workbooks(1).Sheets(1) '添加.Workbooks(1) xlsheet.Range("A1:E7").Copy NewxlSheet.Range("A1").PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, True Set xlApp = Nothing Set xlsheet = Nothing NewxlApp.Visible = True Set NewxlApp = Nothing Set NewxlBook = Nothing Set NewxlSheet = Nothing End Sub Sub Crxls() Set NewxlApp = Excel.Application '修改CreateObject("Excel.Application") Set NewxlBook = NewxlApp.Workbooks.Add Set NewxlSheet = NewxlBook.Worksheets(1) End Sub ================2007-9-28补充================ Option Explicit Dim xlApp As Excel.Application Dim xlsheet As Excel.Worksheet Dim NewxlApp As Excel.Application Dim NewxlBook As Excel.Workbook Dim NewxlSheet As Excel.Worksheet Private Sub Command1_Click() Set xlApp = New Excel.Application xlApp.Visible = True xlApp.Workbooks.Open "E:\My Documents\1.XLS" '换成你自己的文件路径App.Path & "\2.XLS" Call Crxls Set xlsheet = xlApp.Workbooks(1).Worksheets(1) 'xlApp.Sheets(1)不可靠 xlsheet.Range("A1:E7").Copy NewxlSheet.Range("A1").PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, True Set xlApp = Nothing Set xlsheet = Nothing ' NewxlApp.Visible = True 放在前面容易看运行过程 Set NewxlApp = Nothi

扩展阅读：vba编程必背50个程序 ... vb调用excel封装在一起 ... vb官网下载 ... 自闭症vb教学 ... vba编程代码对照表 ... vb处理excel数据 ... excel vba有必要学吗 ... 如何在excel中使用vb ... vb打开excel工作表 ...