Tag: 转移

运行时错误“3052”。文件共享locking计数超出。增加MaxLocksPerFileregistry项: 我已经在这个数据库上工作了一段时间了，并且陷入了一些与数据库有关的问题，这就是其中之一。这个代码将一张表转换成excel，把每一百万条logging放在一张单独的表格中。目前我正试图转移的表格有150万条logging和7个字段。编码工作正常，直到它击中Alter Table SQL。在这一点上它吐出这个错误。我已经增加了dbMaxLocksPerFile到2000万，这没有帮助，我很难过。任何帮助，我可以得到这将是惊人的:) 仅供参考这是我做过的第一批VBA编程，是自学成才（谷歌教），所以我的设置等可能有点混乱。代码如下： Private Sub EXPORT_TO_EXCEL_Click() DoCmd.SetWarnings False DAO.DBEngine.SetOption dbMaxLocksPerFile, 20000000 'That's 20 million!!! 'DTable is the file name, and is input by the user in earlier coding under a public string Call CreateNewFolder("O:\Folder Location\" & DTable & "") Dim strWorksheetPathTable As String '—-Set File Path strWorksheetPathTable […]

VBA只有当我想要所有的时候抓住一个图表才能得到PPT？: 我是一个业余编码器。我试图把东西放在一起，将excel文件中的所有图表转移到一个幻灯片上的不同幻灯片。我已经在线testing了几个模块（也有一些在这里）。到目前为止，我发现下面这个对我来说是最全面的。我在工作表上有3个图表，出于某种原因，我无法弄清楚，代码只复制一个graphics（第一个创build），制作新的幻灯片并将其粘贴在第二张幻灯片上。不知道发生了什么，任何帮助将不胜感激： Sub ChartsAndTitlesToPresentation() ' Set a VBE reference to Microsoft PowerPoint Object Library Dim PPApp As PowerPoint.Application Dim PPPres As PowerPoint.Presentation Dim PPSlide As PowerPoint.Slide Dim PresentationFileName As Variant Dim SlideCount As Long Dim iCht As Integer Dim sTitle As String ' Reference existing instance of PowerPoint Set PPApp = […]

从JSON转置为优秀如何取整？: 我有excel脚本和jason页面，不要让这个巨大的im只是放置重要的东西。 function pull(toonName,toonRealm) { if(!toonName || !toonRealm) { return "" } var toonJSON = UrlFetchApp.fetch("us.battle.net/api/wow/character/"+toonRealm+"/"+toonName+"?fields=items,talents,statistics,stats,progression,audit") var toon = JSON.parse(toonJSON.getContentText()) var getStats = function(sta) { var crit = sta.crit, haste = sta.haste, mastery = sta.mastery, spirit = sta.spr, multi = sta.multistrike, vers = sta.versatilityDamageDoneBonus return [crit, haste, mastery, spirit, multi, vers] } var Stats = getStats(toon.stats) […]

在删除vba中的单元格时右移单元格: 删除内容后，我需要将单元格移到右侧。这个选项不是由excel给出的，我只能得到4个select： – 左移位单元格 – 移位单元格 – 整行 – 整列最后，我希望在我的VBA代码中有这样的结果： Selection.Delete Shift:=xlToRight 我改变了 Selection.Delete Shift:=xlToLeft 提前谢谢您对Brgds Patrick的任何帮助我终于结束了这个，它工作得很好： Sub ShiftRight() Selection.End(xlToRight).Select numcol = ActiveCell.Column numcol2 = numcol numcol = (numcol – lngColNumber) + 5 strcolletter = Split(Cells(1, numcol – 1).Address, "$")(1) strcolletter2 = Split(Cells(1, numcol2).Address, "$")(1) Range(Myrange).Select Selection.Cut Destination:=Columns(strcolletter & ":" & strcolletter2) End […]

删除单元格而不移动它们: 我有vbamacros删除select的单元格。它删除后自动移动单元格。我不想让单元格向上移动，因为我在单元格下面有一个图表，如果它们移动了，所有东西都会受到干扰。这是我用来删除单元格的代码 ActiveSheet.UsedRange.Select ActiveSheet.Range("C2:H8").Select Selection.Delete 让我知道如何删除它们，而不移动。

从VB.Net导出到Excel后，小数分隔符丢失: 我有数字和文本存储在一维string数组，我需要发送到Excel。对于这个操作我使用了一个简单的代码： WPFtoExcel.Range("A1").Activate() For item = 0 To 10 WPFtoExcel.ActiveCell.Value = Array(item) WPFtoExcel.ActiveCell.Offset(0, 1).Activate() Next 在传输过程中，一些数组中的小数点数> 2的数字会丢失小数点：出现在excel中的5,65为5,65 {OK} 0,0152在excel中出现为0,0152 {OK} 但： 800,111出现在excel中为800 111 8001114在excel中出现为8 001 114 如果有人能提出这样的数字如何被转移，我将不胜感激。问候，