Tag: ms access
Access + VBA：正确创build数据库
如何更正以下字段的创build数据库： Dim F As String Dim S As Long Dim T As Integer Dim C As Double //Currency Dim D As String //Date F = "ABC" S = 88869045 T = 9 C = 30.4493 // currency, but can be double D = "06.08.2010" // date (how to correct convert to date?) //#1 DBTable.Name = […]
分析标签集合的最佳方法是什么？
根据答复的内容，我已经有成千上万的调查回答被标记了。 每个响应可以有一个标签或多个（最多20个），而且这些标签是相互独立的，而不是被构造成类别子类别或其他东西。 我希望能够做如下的分析： 给定标签有多less个实例？ 哪个标签总体上最常出现？ 在标签X存在的情况下，哪些其他标签最常出现？ 所有标签列表中的每一个旁边的计数 select数据的子集进行类似的分析（例如，按国家） 与我一起工作的人传统上一直在处理Excel中的所有事情（一般的业务策略咨询工作），在这种情况下这是行不通的。 他们的回应是将项目框架改为Excel可以在数据透视表中处理的东西，但是如果我们可以使用更强大的工具来实现更复杂的关系，情况会好得多。 我一直在学习SQLite，但是我开始担心，我想要做的事情会非常复杂。 我也一直在学习Python（因为不相关的原因），有些人想知道ORM工具和一些Python代码可能是更好的方法。 然后有一些像Access（我没有，但可能会愿意得到，如果它是这种事情的甜蜜点）。 总而言之，我很想知道，这些分析是多么困难，总的来说，哪些工具最适合这项工作。 我完全接受这样一个观点，即我正在思考一些或所有问题，并且以任何方式向我提出任何build议。
什么是VBA代码导入选定的电子表格从excel文件到访问2007年表
我需要VBA代码将选定的电子表格从多个Excel文件导入访问2007表。 谁能帮忙？ 这是迄今为止的代码。 Option Compare Database Option Explicit Const strPath As String = "C:\Users\person\Documents\files.xlsx" Dim strFile As String Dim strFileList() As String Dim intFile As Integer Sub Sample() strFile = Dir(strPath & "*.xls") strFile = Dir(strPath & "*.xls") While strFile <> "" 'adding files to the list intFile = intFile + 1 ReDim Preserve strFileList(1 […]
Excel不将数据传输到Access数据库
我在Access 2010中有一个存储项目信息的表格。 为此目的，主要的栏目是LocationID ， Priority1和Priority2 （它们有合适的名字，但是为了概括…） 我也有一个Excel 2010的电子表格，这些信息被导出到Access中。 它通过Excel和Access中的LocationID列运行，并为所有匹配的字段着色。 然后，它检查Priority1和Priority2列，看是否有任何行已经被填充，并且颜色不是。 这部分工作正常。 接下来应该做的是将Excel中两个Priority列的值复制到Access表中。 这没有发生，我不知道为什么。 整个代码相当长，所以这里只是关于传输值的部分。 我可以添加任何其他可能有用的代码。 If (Not (IsNull(path))) Then Set cn = New ADODB.Connection cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & path & ";" Set rs = New ADODB.Recordset rs.Open "BCIImport", cn, adOpenKeyset, adLockOptimistic, adCmdTable On Error Resume Next Do While Len(Range("B" & r).Formula) > 0 With […]
使用DoCmd.TransferSpreadsheet将Excel电子表格导入到Access中创build重复项
我碰到一个非常意外的问题，我有一个Excel电子表格，我正在导入到Microsoft Access数据库使用： DoCmd.TransferSpreadsheet 。 它似乎工作正常…但现在，我已经到了我的项目的最后阶段，并开始计算导入的数据…我注意到，所有的计算都是他们应该的两倍。 罪魁祸首原来是来自一个非常惊人的来源！ 事实certificate，当我使用DoCmd.TransferSpreadsheet导入时，它几乎是复制每个logging。 在4000行电子表格中，我创build的Access表格有7998行。 在研究这个问题时，我已经遇到了多个关于如何在导入之后删除重复项的build议。 这对我来说根本就不是一个解决scheme，因为我的数据里面有重复的行，我需要保留。 总之，我需要完全导入电子表格，因为它位于重复行和所有…但没有导入过程中创build额外的重复项。 看来这应该是一个非常基本的过程，并且真的很好奇，知道这个导入过程是如何创build重复行？ 我的意思是，它应该只导入那里的数据！ 这是紧迫的时间紧迫的时间，我没有指望这个令人惊讶的问题…所以任何帮助将非常感激。 这是违规的代码行： DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, strTableName, strFileName, True 我不认为这很重要，但我正在使用打开文件对话框来获取电子表格。 如果有人认为它会帮助，我可以发布完整的程序。 为了进一步澄清这里是我完整的代码这个过程。 请注意，我正在将导入的文件名称中的表名更改为我自己的枚举名称，因为我一次导入多个工作表。 Private Sub ImportFiles() Dim strFileName As String Dim strTableName As String Dim fDialog As Office.FileDialog Dim varFile As Variant Dim lngProcessID As Long CancelProcessing = False ' Set up the […]
当我尝试将某些东西作为图表或图表对象时出错
我试图简单地在VBA中创build一个graphics，但得到的错误： 用户定义types未定义 我已经能够将其暗淡为一个对象，并产生它，但是我不能编辑它的任何成员属性。 我从MS-Access运行VBA，但我不确定会影响它。 这是我的完整代码 Dim TATchart As ChartObject Set TATchart = wrkSht.ChartObjects.Add(Left:=200, Width:=375, Top:=50, Height:=225) With TATchart.Chart Set ChartType = xlXYScatterLines .SetSourceData Source:=wrkSht.Range(wrkSht.cells(1, 1), CurCell.offset(0, 1)) Set .Title = "Total Over Time (MAW)" End With 编辑：wrkSht被初始化为工作表，并一直工作正常。
Excel VBA使用variablesINSERT INTO语句
我正在使用SQL查询从Excel工作表插入数据到Access数据库。 我把工作表中的所有数据放到variables中： rwyNumber = Range("b13").Value & Range("c13").Value testDate = Range("b5").Value testTime = Range("b6").Value rwySide1 = Range("b14").Value firstThird1 = Range("b28").Value secondThird1 = Range("b29").Value thirdThird1 = Range("b30").Value averageFriction1 = Range("b23").Value 如果我想将testDate和testTime存储为Date / Time，那么当我将它们存储在variables（上面）中时是否需要转换它们，或者只要将数据types设置为Date（date/时间） /表中的那些列的时间？ 还有双打和string。 什么是我的查询的其余部分正确的语法： stSQL1 = "INSERT INTO Friction Tests (Runway Number, Runway Test Side, Test Date, Test Time, 1/3, 2/3, 3/3, Average)" stSQL1 = […]
Access – Excel集成
嘿，所有，一直在努力devise一个新的工作数据库。 他们一直在使用Excel进行日常报告，所有的数据都存储在那里，所以我决定在Access中拥有数据库的后端，在Excel中使用前端，这样任何分析工作都可以轻松完成该数据已被导入到Excel中。 现在我对VBA相当陌生，慢慢地习惯使用它，编写了一些代码将一个计算表从Access迁移到Excel： Option Explicit Public Const DataLocation As String = "C:\Documents and Settings\Alice\Desktop\Database\TestDatabase21.accdb" Sub Market_Update() Call ImportFromAccessTable(DataLocation, "Final_Table", Worksheets(2).Range("A5")) End Sub Sub ImportFromAccessTable(DBFullName As String, TableName As String, TargetRange As Range) Dim cn As ADODB.Connection, rs As ADODB.Recordset, intColIndex As Integer Set TargetRange = TargetRange.Cells(1, 1) ' open the database Set cn = New […]
将包含年份的行转换为列
为了将数据inputSAS，需要采用以下格式： Country Year Indicator_1 Belgium 1900 x1 Belgium 1901 x2 … Belarus 1901 x1 但是，我的大部分数据都采用以下格式： Country 1900 1901 1902 … etc Belgium x1____x2___x3 …etc Belarus x1____x2___x3 …etc 有一个简单的macros或VBA脚本可以帮助吗？
如何使用VBA从MS Access更改Excel工作表中单元格的值？
如何使用VBA从MS Access更改Excel工作表中单元格的值？ 谢谢！ …. Set objApp = CreateObject("Excel.Application") objApp.Visible = True Set wb = objApp.Workbooks.Open("fileHere.xls", True, False) 'Below does not work (Title is in cell A1): wb.Sheets(1).Rows(1).Insert ("Replace Title Here") ….
