我知道我以前看过这个问题的引用,但我已经尝试了几个建议,但我仍然得到错误.我有一个工作簿,可以汇编另一本书中的数据并生成报告.然后,我想制作一个新的工作簿,将报告信息复制到新书中,保存新书并关闭它,然后转到下一个报告.它应该这样做大约10次.在我复制和粘贴工作表的代码部分,我收到错误
错误-2147417848自动化错误调用的对象已与其客户端断开连接
我已经检查了有关此错误的其他帖子,并尝试了建议的解决方案,没有任何结果.有趣的是,有时它会在断开之前通过5个循环的代码,有时只有2个.唯一的一致性是它总是在同一个地方断开
fromBook.Sheets("Report").复制之前:= newBook.Sheets("Sheet1")
我在模块的顶部有选项Explicit,并且我已经检查过以确保它内部没有任何全局变量.它说,我完全有可能忽略了某些东西.我还在一个点放了一个"计时器",以确保excel表没有相互走过.
我真的可以使用这个帮助!
这是我的子代码:
Sub CreateAndSave(ByRef Reg As Integer, ByVal j As Integer)
Dim fromBook As Workbook
Dim fromSheet As Worksheet
Dim newBook As Workbook
Dim fileExists As Boolean
Dim i As Integer
Dim Holder As Integer
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set fromBook = Application.Workbooks("Region_Audit_Report")
Set newBook = Workbooks.Add
With newBook
.SaveAs Filename:="G:\DataTeam\ExcelDev\Audit Report\Region Workbooks\Region" & Reg & " " & Month(Date) & "-" & Day(Date) & "-" & Year(Date) & ".xlsx" _
, …我正在尝试整理一个表格,该表格将采用完整日期,YYYY-MM-DD,仅提取月份信息,然后将这些月份组合为单独的行.
我已经尝试使用MONTH(DATE)命令,使用Group by和Order By命令,我得到了表中列出的4年的返回月份.我给出48行,列出1-12,重复4次.我希望按顺序获得1到1的回报.
这是我到目前为止的代码.
select MONTH(DATE) As "Month"
from DW******.SL****
Group By DATE
Order by DATE
刚开始使用SQL,所以我为这个简单的问题道歉.
如果有人可以请你帮忙.这是我的Db和我将要使用,CONVERT但这不适用于我们的服务器.
我正在尝试编写一个查询来计算服务器端的一些数字，而不是在提取数据之后。我不断收到 SQL0802 错误。我已经尝试了常规Sum，以及Double和float命令。我认为回报是漫长的。我正在使用 SQL Squirrel，所以我删除了小数位限制，看看是否可以解决问题。是"Gross Margin"计算将其抛弃。其余的计算工作正常。我很感激我能得到的任何帮助。这只是代码的一部分。为了空间起见，我省略了Where,Group By和Order By部分：
Select Distinct DB1.Tb1.STORE,
DB1.Tb2.DATE_ID,
Sum (DB1.Tb1.CUR_CASH_SALES+DB1.Tb1.CUR_CHARGE_SALES) As "Total Sales",
Sum (DB1.Tb1.CUR_CASH_COST+DB1.Tb1.CUR_CHARGE_COST) As "Total Cost",
Sum ((DB1.Tb1.CUR_CASH_SALES+DB1.Tb1.CUR_CHARGE_SALES)-DB1.Tb1.CUR_CASH_COST+DB1.Tb1.CUR_CHARGE_COST)) As "Gross Profit",
Sum (((DB1.Tb1.CUR_CASH_SALES+DB1.Tb1.CUR_CHARGE_SALES)-(DB1.Tb1.CUR_CASH_COST+DB1.Tb1.CUR_CHARGE_COST))/(DB1.Tb1.CUR_CASH_SALES+DB1.Tb1.CUR_CHARGE_SALES)))As "Gross Margin"
我有一段代码应该按名称检查是否存在工作表。如果工作表存在，则存在一些复制和过去的功能，如果工作表不存在，则将创建，并且将遵循相同的复制过去的功能。我无法获取正确的布尔值来返回主子。布尔值始终注册为false（我知道这是默认值）。我尝试了几种不同的方法来更正此问题，但仍然遇到问题。我真的可以使用一些帮助，这可能很容易解决。
Sub BreakOutCategories()
Dim catSheet As Worksheet
Dim catName As String
Dim Range1 As Range
Dim gRange As Range
Dim toSheet As Worksheet
Dim CheckSheet As Boolean
Dim CreateSheet As Boolean
Dim i As Long
Set catSheet = Sheets("MasterList")
Set Range1 = catSheet.Range("A1", catSheet.Range("A1").End(xlDown))
For Each gRange In Range1
i = 0
catName = gRange.Value
CheckMySheet (catName)
If CheckSheet = True Then
toSheet = Sheets(gRange.Value)
gRange.Offset(0, 1).Copy
toSheet.Range("A1", toSheet.Range("A1").End(xlDown)).Offset(1, 0).Paste
gRange.Offset(0, 1).Copy
toSheet.Range("E1", toSheet.Range("E1").End(xlDown)).Offset(1, 0).Paste
gRange.Offset(0, 2).Copy
toSheet.Range("B1", toSheet.Range("B1").End(xlDown)).Offset(1, 0).Paste …我收到System.Windows.Forms.dll中出现的'System.TypeLoadException'.这是错误消息的其余部分.
附加信息:无法从程序集'DataTeamMailerCSharp,Version = 1.0.0.0,Culture = neutral,PublicKeyToken = null'加载类型'DataTeamMailerCSharp.NewReport',因为方法'.ctor'没有实现(没有RVA).
这是正在发生的课程.
using System;
using System.Collections.Generic;
using System.Linq;
using System.Threading.Tasks;
using System.Windows.Forms;
namespace DataTeamMailerCSharp
{
static class Program
{
/// <summary>
/// The main entry point for the application.
/// </summary>
[STAThread]
static void Main()
{
Application.EnableVisualStyles();
Application.SetCompatibleTextRenderingDefault(false);
Application.Run(new mainGUI());
}
}
}
错误发生在这里:
Application.Run(new mainGUI());
在回复评论时,我最近在我的一个课程中改变了这一点.我正在尝试XML序列化,并且在无参数构造函数中它告诉我它需要一个body或exter,partial和其他东西.这是类代码.
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
namespace DataTeamMailerCSharp
{
[Serializable] class NewPerson
{
public string personName { get; set; }
public string …