Tag: MS 字

使用Python将数据从MS Access复制到MS Excel: 我一直在花费周末的更好的一部分，试图找出使用Python从MS Access表格传输数据到Excel表格的最佳方式。我发现了一些可能有用的模块（execsql，python-excel），但是由于我有限的知识和我必须使用的模块来创build特定的数据（我是GIS专业人员，所以我使用空间数据创build将ArcGIS arcpy模块放入一个访问表中）我不确定最好的方法应该是什么。我所需要做的就是从访问excel中复制4列数据，然后格式化excel。我已经解决了格式化部分。我是不是该：迭代使用游标的行，并以某种方式加载到Excel中的行？将访问列复制到Excel？将整个访问表导出到excel表格中？感谢您的任何build议。

Excel中单元格中的不需要的字符在Python中: 我正在设置Excel单元格的值。我从MS-Word文档（dcx）中的表格单元格中获取数据并将其打印在输出控制台上。问题是单元格的数据只是一个单词“小时”，没有明显的其他前导或尾随可打印字符，如空格。但是当我使用python的print（）函数打印它时，它显示了一些意想不到的字符，更像是一个小“？” 在一个矩形。我不知道它从哪里来。而当我写一个包含单词“Hour”的variables时，它会在Excel单元格中显示一个粗体点（。）。可能是什么问题？任何帮助深表感谢。我使用Python 3.2和PyWin32 3.2在Win7上。谢谢。

如何用密码打开工作簿，禁用事件: 如何使用密码打开工作簿，禁用事件，然后将背景中的工作表复制到第二个文件并保存。我需要在VBA中，在MS-Access和Excel文件中工作我这样做到现在为止，正在工作。 Private Sub TestFunction() 'strPath = CurrentDb.Properties(0) 'strPath = Left(strPath, Len(strPath) – Len(Dir(strPath, vbNormal))) & "Temp\" Dim CopyFrom As Object Dim CopyTo As Object ''Early binding: Workbook Dim CopyThis As Object Dim xl As Object ''Early binding: New Excel.Application Set xl = CreateObject("Excel.Application") xl.Visible = True Set CopyFrom = xl.Workbooks.Open("D:\A01.xls") 'CopyFrom.EnableEvents = False […]

如何使用Excel VBA从Access数据库中提取备注字段？: 我有一个Excel电子表格。我通过ODBC连接到Access数据库。东西沿线： Set dbEng = CreateObject("DAO.DBEngine.40") Set oWspc = dbEng.CreateWorkspace("ODBCWspc", "", "", dbUseODBC) Set oConn = oWspc.OpenConnection("Connection", , True, "ODBC;DSN=CLIENTDB;") 然后我使用查询并获取结果集来获取一些表数据。 Set oQuery = oConn.CreateQueryDef("tmpQuery") oQuery.Sql = "SELECT idField, memoField FROM myTable" Set oRs = oQuery.OpenRecordset 现在出现了这个问题。我的领域是一个dbMemo，因为最大内容长度高达几百个字符。这不是那么长，实际上我读的价值只有十几个字。但是Excel似乎根本不能处理Memo字段的内容。我的代码… ActiveCell = oRs.Fields("memoField") …给错误运行时错误“3146”：ODBC – 调用失败。有什么build议么？ Excel VBA实际上可以获得备忘录字段数据吗？或者是完全不可能的我也从GetChunk获得完全相同的错误。 ActiveCell = […]

将数据从Word无缝移动到Access: 我正尝试将结构化文档（即主要是一些元数据和一个大表的文档）迁移到数据库。当我尝试将表格数据从Word移动到Excel时，我的主要问题是在Word中处理单元格内的CRLF。任何解决scheme？现在，我将从Word转移到Access：当我尝试使用包含CRLF的string填充字段时，将会有什么默认行为？获得尊重“富文本”的最便宜方式是什么？（主要是粗体和过度打击） TNX

如何识别4列中具有最低行ID的文本值？: 我发现了一些接近的文章，但与我正在做的不一样。我有一个包含4列重复数据的Excel文件，每列都根据来自不同工作表的数值进行sorting。我需要确定这四列的值匹配的25（左右？）行，并且行ID是最低的。将有大约250行的数据进行筛选，所以我只需要最好的10％。我不需要这样做。如果这不能在Excel中完成，我可以将这些数据转储到Access中。或者，我可以在每个文本列旁边分配列（一种为列1,2,3和4中的每个字段分配ID）并使用这些值。只要结果有效，方法是可以谈判的。这里是我的数据在Excel中的样子： ABCD abc bcd abc def cde fgh def bcd def def bcd abc bcd hji xyz lmn 所以在这种情况下，我想突出（或以某种方式识别）值“def”，因为它看起来最接近所有4列的顶部，因此它有最低的行ID。值“bcd”将在列表中第二位，因为它也被全部标识为4并且具有低行ID。任何build议，将不胜感激。我知道SQL相当好，所以如果你认为把它倒在数据库中是最好的，你可以build议一个很棒的查询。但理想情况下…保持在Excel中对我来说是最less的工作量。我打开公式，条件格式等，谢谢！

访问使用x值不一致的graphics: 我需要从一个不相互排列的值列表中创build一个图表。有些样本在某个过程中被采取，但并不总是相同的。样品A的时间是下午1点，下午3点，下午5点等。样品B的时间是下午2点，下午4点，下午6点等。样品C的时间是下午1点30分，下午3点30分，下午5点30分等。如果我单独绘制每个样本，那么它们都很好，但是当您将它们绘制在一起时，只能得到xy散点，但由于它认为存在缺失值，因此不会有任何线条。我只需要粗略比较随着时间的增加/减less。如果我可以用点线来连接点，忽略缺失的值将是伟大的！我只是不知道该怎么做…有什么build议吗？这是为Access，否则这将工作。 Excel – 用线连接数据点

如何在Excel中使用MS Query中的临时表？: 如何在Excel中使用MS Query中的临时表？查询在预览中显示正常，但不会正确插入到电子表格中。

Excel单元格中的空值？: 我有一个Java程序接收.xlsx（Excel文件）作为input。不知何故，我设法在我的程序工作中至关重要的一个单元中创build一些“奇怪的空状态”。那么，我的意思是这个单元格看起来完全是空的，导致程序具有行为A. 但是，如果我标记有争议的单元格，按下键盘上的“删除”button（尝试清空内容）并保存文档，程序具有不同的行为B. 任何想法哪个价值可能最初在细胞看起来完全空？怎么可能简单地删除更改单元格的内容？任何想法该怎么办？

将Access数据库查询复制到Excel电子表格中: 我有一个Access数据库和一个Excel工作簿。我需要做的是查询数据库并将查询粘贴到工作表中。问题是运行时。我已经join了这个程序，一切正常，但是它的工作速度非常慢，我们说每个查询的运行时间高达30秒，尽pipe这个运行时间的大部分是通过CopyFromRecordset调用来实现的。数据库在我查询的表中有超过800k行。目前在我的公司，每天早上都有人手动查询表格并将其复制并粘贴到excel中。我试图删除这个过程。这是我有什么： Sub new1() Dim objAdoCon As Object Dim objRcdSet As Object ' gets query information ' Dim DataArr() Sheets("Data2").Activate DataArr = Range("A1:B40") For i = 1 To UBound(DataArr) job = DataArr(i, 1) dest = DataArr(i, 2) If InStr(dest, "HT") > 0 Then OpCode = "3863" ElseIf InStr(dest, "HIP") […]